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Redactioneel 

Commodore is op de Amerikaanse markt lang niet meer zo belangrijk als in het 
verleden. Qua omzet moet men het vooral van Duitsland hebben, maar toch komt de 
meeste software wel uit de VS, met Engeland als goede tweede. Een klassiek patroon, 
al moeten we wel toegeven dat het merendeel van de titels eerst voor PC uitkomt, 
maar de Amiga versie is meestal fraaier. Rondkijkend op een aantal beurzen in de VS 
viel me weer op, dat er langzamerhand toch wel heel goede Amiga software is, ook 
voor serieus werk. 

De tekstverwerker ProWrite 2.0 van New Horizons bijvoorbeeld doet is een goed, 
goedkoop, en niet te moeilijk pakket, werkt in en met kleur en graphics (DTP!), en heeft 
een goede ondersteuning in de vorm van font-pakketten en een echte PostScript utility 
ProScript. WordPerfect voor de Amiga is nog beter, maar relatief duur. 

Games, games, games, wie op zo'n beurs de tijd wil nemen kan zijn hart ophalen. 
Amiga spellen worden hele films op zich, zoals bijvoorbeeld Sword of Sodan van 
Discovery Software, dat maar liefst 4 MegaBytes beslaat. Dragon ’s Lair van Readysoft 
is nog veel groter. De flight simulators worden steeds mooier, programma’s als Falcon 
(SH), Interceptor, Stargiider II en Hawk (EA) zijn spectaculair. 

De A-MAX Mac emulator van Readysoft belooft de software-rijkdom van de Apple 
Mac’s op de Amiga, maar we kennen nog geen importeur van dit produkt. Bovendien 
zijn er (echte) Apple ROM’s nodig om ermee te werken en een Mac floppy drive. 

Het lijdt geen twijfel, de Amiga leeft, maar daarbij zien we helaas voor de C-64 bezitter 
steeds minder nieuws. Robocop van DataEast is een uitzondering, meestal mag de 64 
bezitter pas aansluiten, als er een spel het zo goed doet, dat men er ook een 64 versie 
van maakt. Jammer, maar toch blijft Commodore Info de 64 en 128 gebruikers trouw! 

• Luc Sala 
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Het spelen van spelletjes op de computer is zo oud als de uitvinding van deze 
machine. Maar om samen met iemand anders een boeiende middag of avond door te 
brengen is een heel ander verhaal. Slechts enkele games zijn van echt goed niveau . 
Gelukkig is er aan het kleine lijstje teamspellen weer een nieuwe naam toegevoegd. 

Captain Fizz 


E nige tijd geleden zei een vriend tegen mij: ’Goh, op zichzelf is het spelen 
van spelletjes wel leuk, maar over het algemeen speel je ze meestal 
alleen.’ En na enige zoekwerk moest ik hem wel gelijk geven. Op het gebied 
van teamspellen waren er niet meer dan vijf interessante spellen te vinden. 
Psyclapse heeft er hier sinds kort een aan toegevoegd. 



Schermbeeld van Captain Fin. 


Het spel Captain Fizz. Dit spel, dat 
zowel voor de 8-bits als voor de 16- 
bits computers te verkrijgen is, is gek 
genoeg niet een van Psyclapse’s gra¬ 
fische hoogtepunten te noemen, als 
je dit spel met hun voorgaande suc¬ 
cessen vergelijkt. Hij is in vergelijking 
tussen Amiga en 64 echter verras¬ 
send goed afgewerkt. Natuurlijk gaat 
het op de Amiga soepeler en is het 
geluid zonder meer superieur, maar 
afgezien van deze feiten, is hij op de 
64 perfect speelbaar. Het verhaal 
speelt zich af op een ruimteschip dat 
zich, door een groot aantal vijandelij¬ 
ke individuen op weg naar de zon be¬ 
geeft. Om het schip en passagiers te 
redden zijn er twee Huurlingen aan 
boord van het ruimteschip getelepor- 
teerd en moeten zij als een TEAM de 
brug van het ruimteschip bereiken. 

Energiedeuren 

Op hun weg komen zij zowel vijanden 
als opstakels tegen. Deze vijanden 
variëren van gewoon kanonnenvoer 
tot zwaar bewapende tanks. De ob¬ 
stakels zijn normale, energie-deuren 
en barricades. Voor de gewone deu¬ 
ren zijn pasjes nodig, er zijn op elk le- 
vel vier kleuren te vinden en voor elke 
kleur deur zijn er pasjes. De energie¬ 
deuren zijn een ander probleem. 
Deze moeten door een combinatie 
van vier knoppen geopend worden. 
Deze deuren sluiten zich na enige se¬ 
conden weer, dus is het zaak dat de 
deur zo snel mogelijk gepasseerd 
wordt. Dit is vaak alleen mogelijk zo’n 
deur te passeren door speler 1 bij de 
deur te laten staan, speler 2 de deur 
te laten openen en speler 1 de deur 


laten passeren. Daarna vanaf de an¬ 
dere zijde speler 2 hetzelfde laten 
doen zodat ook speler 1 verder kan. 
De bedoeling is om als een TEAM 
door de diverse problemen te komen. 
Indien je dit achterwege laat kom je er 
op sterfelijke wijze achter, dat in een 
goed kruisvuur een goed schutter ge¬ 
liefder is dan een hogere score. Ik kan 
niet anders zeggen dan dat het spel 
zonder meer garant staat voor meer¬ 
dere dagen joystickplezier. Psyclapse 
bewijst tevens dat het spel de geluk¬ 
kige speler maakt en niet de hi-res 
beeldschermen. 


Het spel is voor ƒ 50,- te krijgen bij de 
betere spellen leverancier. 

Het programma is verkrijgbaar voor 
de C-64 en Amiga, en daarnaast nog 
voor de Spectrum, PC en de Atari ST. 


GRAFISCH 
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95 

TOTAAL 

71 


Commodore Info 4/89 


7 

























Commodore 


Er zijn in Nederland een aantal leveranciers die het steeds weer blijven proberen om 
software te importeren. Het is niet eenvoudig, elke keer als een spel op de markt komt 
(en vaak daarvoor al)wordt het meteen al gekopieerd en in het illegale circuit rondge¬ 
deeld. 

Krachtpatsers, spoken 
en balkunstenaars 


E r gaat een gerucht dat van elk spel dat wordt verkocht er 25 kopieën 
worden gemaakt. U kunt nagaan hoe moeilijk het is om toch, voor de 
grote groep die hier niet aan mee willen doen, software op de markt te 
brengen. 



Dragonninja 


HomeSoft Benelux is zo’n bedrijf dat 
ondanks dit alles het toch blijft probe¬ 
ren om tegen een redelijke prijs soft¬ 
ware te leveren. Zij stelden ons een 
groot aantal pakketten ter hand om 
hier wat over te schrijven. Dit aantal is 
zo groot en er zijn zulke uitgebreide 
spelen bij dat we dit niet in één keer 
kunnen redden. Er blijft dus nog wat 
over voor het volgend nummer. 

De Monsters 

Deze software is van een minder be¬ 
kend Amerikaans Softwarehuis, Har- 
ribly Good Software. Minder bekend 
slaat hierbij zeker niet op minder 
goed. De monsters is een ras echt ar¬ 
cade spel, dus vol aktie. De opdracht 
is een monster familie te gaan helpen. 
Marilyn is een de kwade greep van 
Old Nick gekomen. Jij moet nu probe¬ 
ren haar uit zijn klauwen te gaan red¬ 
den. Om dit te kunnen bereiken moet 



The Munsters 


je van je tover krachten gebruik gaan 
maken. Dit is de enige manier om de 
kwade geesten terug te sturen naar 
de onderwereld. Al deze handelingen 
kosten veel energie, dus spring hier 
voorzichtig mee om. Er zijn een groot 
aantal mysterieuze objecten in het 
parcours verstopt. Probeer deze alle¬ 
maal op te sporen en verzamel ze. Dit 
moet in de goede volgorde gebeuren, 
dus pas op met wat je doet. Zombies, 
geesten en vampiers, deze kun je op 
je weg tegen komen, zij maken het de 
familie Monster (en dus ook jou) 
steeds weer moeilijk. Deze arme fa¬ 
milie weet niet wat ze overkomt, altijd 
zijn ze aardig, en misschien daarom 
gaat het steeds weer fout, ze worden 
steeds weer het slachtoffer van de on- 
derwereldse vandalen. Je hebt niets 


anders nodig dan je joystick, geluk, 
verstand en heel veel geduld om je 
opdracht tot een goed einde te bren¬ 
gen. Veel oefenen en zorgen dat je 
nachtrust er niet van te leiden heeft, 
dan kan dit spel je veel plezier ver¬ 
schaffen. Het spel is verkrijgbaar voor 
de Commodore 64 en de Atari. 

Dragonninja 

Data East is de ontwerper van dit ak- 
tiespel. Het is een spel, waar hard¬ 
heid en vechtlust op de eerste plaats 
komt. Echt dus een spel voor de lief¬ 
hebbers van de karate sport. Het zijn 
maar liefst zeven levels, waarbij 
slaan, ontwijken, springen en niet te 
vergeten schoppen, een eerste ver¬ 
eiste zijn om'te overleven. Het vergt 
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veel oefening om de held die bewe¬ 
ging te laten maken die je wilt. Onze 
held wordt bestuurd met de joystick. 
We kunnen de joystick in acht richtin¬ 
gen sturen, deze corresponderen met 
acht verschillende . funkties. Maar 
drukken we nu gelijktijdig de vuur- 
knop in dan staan ons nog acht extra 
funkties ter beschikking. In het totaal 
kunnen we onze hoofdfiguur zestien 
verschillende bewegingen laten ma¬ 
ken. In de bijgeleverde handleiding, 
helaas niet in het Nederlands, staan 
de verschillende technieken beschre¬ 
ven. Aan het eind van ieder level, als 
het gevecht is gewonnen, wacht je 
een speciale opdracht. Een vuurspu¬ 
wende dikke boosaardige man, pro¬ 
beert je de weg te versperren. Deze 
groene gigant Ninja heeft er de ge¬ 
woonte van gemaakt om plotseling te 
verschijnen. Heb je je opdracht vol¬ 
bracht, juich dan dus niet al te vroeg. 
Zo tussendoor moet eerst de presi¬ 
dent van de Verenigde Staten worden 
gered. Lukt dit je dan vlieg je samen 
met hem naar veilige oorden. Maar 
voor dat dit lukt zal er nog wel wat wa¬ 
ter door de Rijn stromen. Kortom, een 
spel voor de liefhebber. Verkrijgbaar 
voor de Commodore 64 

Snooker 

Als we aan Snooker denken, dan 
denken we natuurlijk aan Engeland. 
Daar is één man die dat spel op een 
voortreffelijke manier beheerst, dan 
hebben we het natuurlijk over Steve 
Davis. Vorige maand weer Wereld 
kampioen Snooker geworden. Bezit U 
nu een Amiga, dan is het aanschaffen 
van dit spel goed voor urenlang ge¬ 
kluisterd te zitten aan de computer. 
World Snooker, zoals dit spel eigenlijk 
heet, bestaat uit vijf verschillende 
spelen, leder met zijn eigen (onmo¬ 
gelijkheden. Snooker, Pool met En¬ 
gelse regels, Pool met Amerikaanse 
regels, Engels billiard en de minder 
bekende Carom Billiards. Elk spel 
wordt volgens de normale spelregels 
gespeeld. 

Snooker (Amerikaans) wordt ge¬ 
speeld met twee spelers en een bil¬ 
jard met een aantal opvang zakken, in 
elke hoek en twee in het midden van 
de lange zijden. 15 rode ballen, en 
zes gekleurde ballen en een witte 
speelbal. De speler met de meeste 
punten is de winnaar. De ballen zijn 
verschillend van waarde. Rode ballen 
hebben de laagste waarde, 1 punt. De 
gele bal 2 punten, de groene 3 pun¬ 
ten, de bruine 4, blauw 5, rosé 6 en de 
zwarte is het duurste deze is 7 punten 
waard. We beginnen het spel waarbij 



World Snooker 


de gekleurde ballen in formatie zijn 
opgesteld en onze witte speelbal 
moet ergens in het “D” vlak liggen. We 
kunnen zelf bepalen waar we, binnen 
deze grenzen, beginnen. We moeten 
altijd een rode bal raken, anders gaan 
er punten naar de tegenpartij. Deze 
punten gaan ook naar je tegenstander 
als ongelukkiger wijs je speelbal in 
één van de zakken verdwijnt. Hierna 
start qfe tegenstander weer uit de be¬ 
gin positie, dus uit de “D”. Heb je een 
rode bal niet alleen geraakt, maar ook 
in de zak gespeeld dan mag je een 
andere kleur bal proberen in één van 
de zakken te laten verdwijnen. Dus 
hiermee zijn de meeste punten te ver¬ 
dienen. De gekleurde ballen worden 
nadat ze in een zak verdwenen zijn 
weer terug gelegd op de tafel, op hun 
eigen vastgestelde plaats. Hierna 
moet altijd weer eerst een rode bal 
gespeeld worden. Rode ballen wor¬ 
den niet terug gelegd, anders zou het 
spel nooit ten einde komen. Het is dus 
zaak niet alleen te scoren, maar ook 
de ballen zo moeilijk mogelijk voor je 
tegenstander te laten liggen. 

Het Engelse spel wordt gespeeld met 
een speelbal en 15 andere kleuren 
ballen. Eén zwarte bal en twee sets 
van zeven ballen, rood en geel. De 
bedoeling is alle ballen van je eigen 
kleur + de zwarte in de zakken te spe¬ 
len voor je tegenstander het zelfde 
met zijn ballen heeft gedaan. Wie dat 
het eerste voor elkaar heeft heeft dit 
spel gewonnen. 

USA pool wordt gespeeld op een hard 
blauw laken, met een witte bal en 15 
genummerde ballen. De eerste bal 
mag op elke positie achter de zwarte 
lijn worden neergelegd om te worden 
gespeeld. Er moet altijd eerst een bal 
worden aangewezen, welke men wil 
gaan spelen, daarna moet worden 


aangegeven in welke zak hij wordt 
gespeeld. Als alles wordt gemist gaan 
de punten weer naar de tegenstan¬ 
der. Uitkijken is dus een eerste ver¬ 
eiste. 

Engels biljard wordt gespeeld met 
twee witte ballen en een rode bal. Er 
moet bij het begin worden aangege¬ 
ven tot hoeveel punten men het spel 
wil gaan spelen. Er zijn drie manieren 
om punten te verdienen, scoren, mis¬ 
sen van de tegenstander en het ma¬ 
ken van een carambole. Punten wor¬ 
den bij elkaar opgeteld door het ma¬ 
ken van een carambole en de bal ver¬ 
dwijnt in één van de zakken levert de 
meeste punten op. Ook hier mag wor¬ 
den af begonnen op elk punt binnen 
het afgeschermde “D” veld. Bij deze 
eerste bal ligt de bal van de tegen¬ 
stander nog niet op tafel. 

Carom biljards lijkt het meest op ons 
biljard wat er overal in Nederland en 
Belgie wordt gespeeld. Het spel wordt 
gespeeld op een biljard zonder zak¬ 
ken. We hebben op de tafel 1 rode bal 
en twee witte ballen, waarvan er één 
een stipje heeft. Iedere keer dat en 
rode en de witte bal van de tegenstan¬ 
der wordt geraakt levert 1 punt op. 
Lukt dit niet dan is de tegenstander 
aan de beurt. Ook hier moet aan het 
begin de hoogte van de score worden 
aangegeven tot waar men het spel wil 
gaan spelen. 

Het spel is volledig menu gestuurd. 
De snelheid die de bal moet krijgen 
wordt onder aan het scherm aange¬ 
geven door middel van een balk. De 
richting van de bal wordt aangegeven 
door de lijn te trekken vanuit de speel¬ 
bal in de richting waar men de bal 
heen wil gaan spelen. Tot slot kan ook 
worden aangegeven waar men de bal 
wil gaan raken, met andere woorden 
wat voor effect moet er aan de bal 
worden gegeven. Zelfs is het mogelijk 
dat je de Amiga als tegenstander ge¬ 
bruikt. Maar dan is het wel moeilijk 
winnen, we hebben dus gewaar¬ 
schuwd. Ook voor de C-64. 

Circus games 

Programma’s met verschillende spe¬ 
len zijn er al in verschillende soorten 
en maten uitgebracht. Denk hierbij 
maar eens aan de legendarische zo¬ 
mer- en winterspelen. TyneSoft heeft 
samen met HomeSoft aan deze reeks 
een nieuwe loot toegevoegd. Circus 
Games. Als liefhebber van dit soort 
spelen begint dan natuurlijk je hart 
sneller te kloppen. De verwachtingen 
zijn hoog gespannen, nog mooier 
werd het bij het openen van de doos. 
Ingesloten was een komplete handlei¬ 
ding, ja, in het Nederlands. Dit komen 


Commodore Info 4189 


9 







Commodore 


we bij de software pakketten niet vaak 
tegen. Dus met volle moed ertegen 
aan. Door een volleerd spreek stal¬ 
meester wordt U welkom geheten 
door de firma TyneSoft in het grootste 
circus spektakel aller tijden. Ringling 
Bros & Barnum brengen U de circus 
games, iets geheel nieuws op het ge¬ 
bied van spanning en sensatie. Het 
spel laat U kennis maken met de ver¬ 
schillende onderdelen van het circus. 
Zo kan U eindelijk eens hoog in de 
nok aan de trapeze hangen, ja, zelf 
als U hoogtevrees heeft. Het wankele 
koord blijkt een grote aantrekkings 
kracht te hebben, bokkesprongen 
maken op de paarden, het temmen 
van leeuwen, allemaal onderdelen 
waar U al jaren naar uitgekeken heeft, 
en dit alles vanuit uw rustige zolder 
kamertje achter de vertrouwde com¬ 
puter. Alle onderdelen kunnen geoe¬ 
fend worden, maar wilt U dat uw 
naam gaat prijken om de erelijst dan 
zit er niets anders op dan mee te doen 
aan de internationale competitie. Een 
moeilijk onderdeel blijkt het koordan¬ 
sen te zijn. Tijdens het lopen over het 
slappe koord moeten er een groot 
aantal sprongen worden uitgevoerd. 
Een handstand, een salto en een 



Circus Games 


radslag, allemaal onderdelen die hier 
moeten worden uitgevoerd. Lukt dit 
dan komt zo mogelijk het moeilijkste, 
met een éénwieler balanceren op het 
koord. Alles hoeft maar één keer te 
worden uitgevoerd om een zo hoog 
mogelijk punten aantal te behalen. 
Hierna worden de paarden ongedul¬ 
dig. Het paard loopt een aantal rond¬ 


jes in de piste, waarbij het de bedoe¬ 
ling is om op zijn (of haar) rug te gaan 
staan. Nu zal blijken dat dit niet mee¬ 
valt. En alsof het nog niet moeilijk ge¬ 
noeg is, ook hier ontkom je er niet 
aan, een salto en verschillende draai¬ 
en, zijn het verplichte onderdeel. Tij¬ 
dens het trapeze werk houd het pu¬ 
bliek zijn adem in, wat zal hij er van 
terecht brengen. Het trapeze werk is 
verdeeld in drie onderdelen. Oplo¬ 
pend in moeilijkheids graad, moeten 
er verschillende draaiingen worden 
gemaakt tijdens de vlucht. Het laatste 
onderdeel is misschien niet het moei¬ 
lijkste maar wel het gevaarlijkste on¬ 
derdeel. Een stoel en een zweep is de 
enigste bescherming die je hebt. Sla 
hier niet te veel mee, je wekt er alleen 
maar meer agressie mee op bij onze 
viervoeters. De tijgers moeten door 
de brandende hoepel springen, dit le¬ 
vert punten op, elke fout kost punten. 

Al met al zijn onze verwachtingen niet 
te hoog gespannen geweest, een 
leuk, gevarieerd spel, het is weer 
eens iets anders. Het programma is 
voor de commodore 64 leverbaar 


WAT DACHT U VAN 5.000 ARTIKELEN IN VOORRAAD OP COMPUTERGEBIED. 


Laten we er maar eens een paar opsommen. 


Spellen 


Wij hebben meer dan 600 spellen 
in voorraad, van eenvoudig tot 
zeer geavanceerd. 

Diskette box 100 stuks 18,95 
Diskettes v.a. 8,95 10 stuks 
Diskettes kleur v.a. 14,95 
Kettingpapier v.a. 15,- 


MINI KANTOOR 


Zes modules in 1 pakket! 

• Tekstverwerker 

• Database 

• Label printer 

• Spreadsheets 

• Graphics 

• Communicatie 

Dit alles 

voor slechts (\3 


BEURS 64 


Boekhoudpakket 

Nu slechts 99,” 


Final Cartridge III 


• Volledig menugestuurd! • Werkt 
met muis, joystick of toetsenbord! 


Epert Cartridge. 


99,- 


Alles kopiëren. 
Snellader. 


165,- 


92008 g 


229,- 


Centronics interface, voorzien 
van een 8k buffer! 
Doorwerken terwijl uw printer 
nog bezig is! 


SOUND SAMPLER DE LUXE 


CENTRONICS INTERFACE 


92000 g 179,— 

• Ongebufferde Centronics interface. 

• Volledig GE0S compatible. 


Zet uw eigen stem of muziek op disk/tape! 

• Met microfoon! 

Een superieur kwaliteitsprodukt! 
Weergave met de meest geweldige 
effecten (vooruit, achteruit, echo, vibratie, 
ring-modulatie, etc.)! 

Zeer krachtige sequencer! 1QQ _ 

8 bit conversie! 

8 samples tegelijk in geheugen! 






MODEM VOOR COMMODORE 64 
TELTRON 1200 MODEM 399- 


w Officieel CAT & KORCH dealer. j 

Wij zijn ook officieel Commodore dealer, 

Open elke dag van 9.30 tot 18.00 uur. 

Donderdagavond doorlopend tot 21.00 uur. 

Maandag gesloten tot 13.00 uur. 





Alle prijzen zijn incl. BTW. Prijswijzigingen voorbehouden. 

C0MPUTERSH0P UTRECHT. 

DAAR KUNT U ALTIJD TERECHT. 

maar u kunt ook telefonisch bestellen. 

é 


........ „ wwn ittLIUIlwun ULQICLLCn. 

Lomputershop Utrecht, St. Jacobsstraat 273-275, Tel.: 030-334030/341428. 
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De tweede aflevering van de cursus Graphics van Hylke Sprangers en Michel de Boer 
gaat over sprites. Ook deze aflevering zal redelijk simpel beginnen, zodat iedereen het 
kan begrijpen, en wat moeilijker eindigen, voor de gevorderden. Omdat er over sprites 
zoveel te vertellen is, besteden we niet een maar twee afleveringen aan dit onderwerp. 


GRAPHICS 


Deel 2: de sprites 

I n de vorige aflevering zijn we begonnen met het behandelen van een van 
de drie grafische objecten die de Commodore kent: de karakters. Dit 
waren kleine figuurtjes die vooral geschikt waren voor het weergeven van 
tekst en het maken van achtergronden. Maar om echt flitsende beelden te 
maken zijn deze objecten niet geschikt. Deze keer gaan we een stap verder: 
we zullen de sprites gaan behandelen. Dit zijn waarschijnlijk de meest 
fascinerende grafische objecten die de Commodore 64 rijk is. Dit komt 
onder andere omdat ze betrekkelijk makkelijk te maken zijn en heel geschikt 
zijn voor animatie. Kortom, het betere werk is aangebroken. 


In het kader van de sprites zullen we 
de volgende items behandelen: 

° wat is een sprite 
° opbouw van sprites 
0 sprites op het scherm zetten 
° kleuren 

0 sprites vergroten 
° animatie van sprites 
° applicatie programma's 

Wat is een sprite? 

Een sprite is een beweegbaar figuur¬ 
tje, in het engels ook wel een mob ge¬ 
noemd (moveble object). Dit figuurtje 
is ongeveer acht keer zo groot als een 
karakter. In tegenstelling tot een ka¬ 
rakter kan een sprite op elke willekeu¬ 
rige plaats op het scherm worden ge¬ 
zet (een karakter kan immers maar op 
1000 plaaten gezet worden). De kleur 
van een sprite kan gekozen worden 
uit de 16 standaard kleuren. Stan¬ 
daard kunnen er acht sprites tegelijk 
op het scherm worden gezet. Elk van 
deze sprites kunt u zelf definiëren. 
Net als bij de karakters zijn er voor 
sprites verschillende kleurenmodes. 
Een groot voordeel van sprites ten op¬ 
zichte van karakters is dat ze zeer 
eenvoudig te bewegen zijn. 

Opbouw van een sprite 

Een sprite bestaat uit 504 pixels. 
Deze pixels staan in een raster (ma¬ 
trix) van 21 pixels verticaal en 24 
pixels horizontaal. Elk van deze 504 


Bytevolgoïde in sprite 


byte 80 

byte 01 

byte 02 

byte 03 

byte 04 

byte 05 

byte 06 

byte 07 

byte 08 




byte 66 byte 61 

byte 62 


Figuur 1 


pixels kan aan of uit worden gezet. 
Ook hier wordt een pixel intern gere¬ 
presenteerd door een bit. Zoals u al 
weet, uit de vorige aflevering, gaan er 
acht bits in een byte (geheugena- 
dres). Acht pixels naast elkaar vor¬ 
men zo samen een byte. Aangezien 
een horizontale rij pixels van een spri¬ 
te uit 24 bits bestaat, kan de hele rij 
dus gerepresenteerd worden door 
drie bytes. Om het geheel te verdui¬ 
delijken staat in figuur 1 de ordening 
van de bytes in een sprite. Byte 0, 
byte 1 en byte 2 vormen hier de eer¬ 
ste rij pixels. Uit dit figuur blijkt dat een 
sprite uit 3 * 21 =63 bytes is opge¬ 
bouwd. 

Om nu zelf een sprite te maken moet 
eerst een tekening van de sprite in 
een raster worden gemaakt. Figuur 2 
is een voorbeeld hiervan. Deze teke¬ 
ning moet vervolgens worden omge¬ 
rekend naar getallen die de computer 
begrijpt. Hierbij vormt elk byte in de 
tekening een specifiek getal. Dus van 


elk van de 63 bytes moet de waarde 
worden berekend. De 63 bytewaar- 
den die hieruit komen zijn specifiek 
voor die sprite. In het kort gaat het be¬ 
rekenen van deze bytewaarden als 
volgt: de acht bits in een byte worden 
van rechts naar links genummerd. 
Het rechter bit heeft nummer 0 en het 
linker bit 7. Elk bit heeft een waarde, 
namelijk 2 tot de macht bitnummer (2 
A nummer). Het meest linkse bit heeft 
bijvoorbeeld de waarde 2 A 7 = 128. 
De waarde van een byte wordt nu ver¬ 
kregen door de waarden van de bits 
die aan staan op te tellen. Hierbij staat 
een bit aan, als het bijbehorende pixel 
aanstaat. Zie voor een uitgebreidere 
uitleg voor het berekenen van byte¬ 
waarden de vorige aflevering van 
deze cursus. In figuur 2 staan naast 
de tekening de bijbehorende byte¬ 
waarden. 

Opslaan van sprites 

U heeft nu de sprite omgezet in getal¬ 
len. Het volgende wat moet gebeuren 
is het doorgeven van deze getallen 
aan de computer. De bytewaarden 
moeten ergens in het geheugen wor¬ 
den gezet. De plaats waar u de byte¬ 
waarden in het geheugen zet, kunt u 
echter niet volkomen willekeurig kie¬ 
zen. De eisen waaraan het geheu- 
gengebied moet voldoen, zijn de vol¬ 
gende: 

* Het eerste adres van het geheugen- 
gebied moet een veelvoud van 64 
zijn. 
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* Het geheugengebied moet tussen 
de adressen O en 16384 liggen (Dit 
heeft te maken met geheugenban¬ 
ken, hierover echter meer in een late¬ 
re aflevering). 

* Het geheugen gebied tussen adres 
4096 en 8192 kan niet gebruikt wor¬ 
den. Dit zal ook in een latere afleve¬ 
ring opgehelderd worden. 

Door al deze eisen lijkt het mischien 
lastig om een geheugengebied te kie¬ 
zen. In de praktijk blijkt dit echter erg 
mee te vallen. Als voorbeeld kiezen 
we het gebied dat begint op 832. (Dit 
is een veelvoud van 64, want 64 * 13 
= 832). Aan de tweede en de derde 
eis wordt ook voldaan. De bytewaar- 
den van de sprite moeten in de volg¬ 
orde zoals in figuur 1 is aangegeven, 
in het geheugen worden gezet. Dus 
byte 0 komt op adres 832 en byte 62 
op 894 te staan. Dit kan het best wor¬ 
den gedaan door alle bytewaarden in 
de goede volgorde in DATA-regels 
achteraan het programma te zetten. 
De bytewaarden kunnen dan door 
middel van een FOR-NEXT loop en 
de READ-instructie een voor een in 
het geheugen worden gezet. 


naar het geheugengebied waar de 
sprite staat. Een spritepointer is een 
geheugenadres in de computer en de 
waarde van dit geheugenadres be¬ 
paalt waar de pointer naar toe wijst. 
De waarde van een spritepointer kan 
op de volgende manier berekend wor¬ 
den: het eerste adres van het geheu¬ 
gengebied waar de sprite staat, moet 
door 64 gedeeld worden. De uitkomst 
van deze deling is de waarde van de 
spritepointer. Dit verklaart waarom 
het geheugengebied moet beginnen 
op een adres dat een veelvoud is van 
64. Als dit niet het geval zou zijn, zou 
de deling een breuk opleveren en 
breuken kunnen niet in een geheuge¬ 
nadres worden gezet. In ons voor¬ 
beeld is de waarde die de spritepoin¬ 
ter moet bevatten dus 832 / 64 = 13. 
Er is al gezegd dat er maximaal acht 
sprites tegelijk op het beeld kunnen 
worden gezet. Elk van deze sprites 
heeft een eigen spritepointer. De spri¬ 
tes worden genummerd van 0 tot en 
met 7 (Deze nummers zijn straks van 
belang). De spritepointers van deze 
acht sprites staan op de geheugena- 
dressen 2040 (sprite 0) tot en met 
2047 (sprite 7). 



byteLUCKiïden 
0 0 0 


0 

0 

0 

28 

54 


0 0 
0 0 
0 248 

3 14 

4 6 
8 

16 
16 
24 
60 


o 

31 136 
7 240 
3 240 
1 248 
0 255 254 
0 127 254 
0 31 248 

0 3 128 

0 ï 248 


0 

0 

ö 

0 

0 


0 

0 

0 

0 

0 


12 

4 

0 

0 

JL 


Figuur 2 


Spritepointers 

Om nu de computer duidelijk te ma¬ 
ken waar u uw sprites in het geheu¬ 
gen heeft geplaatst, moet u zoge¬ 
naamde spritepointers gebruiken. 
Een pointer is het engelse woord voor 
wijzer. Een spritepointer wijst dus als 
het ware (door middel van een getal) 


Sprites op het beeld zetten 

Voor de sprite die u op het scherm wilt 
zetten moet u eerst een spritenummer 
kiezen. Dit moet een nummer zijn van 
0 tot en met 7. Aan de hand van dit 
nummer kunt u de geheugenadres- 
sen bepalen die nodig zijn voor onder 
andere de positie op het scherm, 


kleuren en de spritepointer. Het is dus 
van belang dat u dit nummer goed 
onthoudt. Als voorbeeld kiezen we 
spritenummer 0 voor onze sprite uit fi¬ 
guur 2. De spritepointer is dus adres 
2040. Hier poken we dus het getal 13 
in. De computer weet nu dat sprite 0 
op adres 832 begint. 

Nu moeten we de positie op het 
scherm bepalen. Deze positie bestaat 
uit een x- en een y-coordinaat. Voor 
sprite 0 is het adres voor de x-coordi- 
naat 53248 en voor de y-coordinaat 
53249. Figuur 3 is een tabel met alle 
adressen die voor de sprites van toe¬ 
passing zijn. Het scherm (het gedeel¬ 
te binnen de borders) bestaat uit 320 
x-coordinaten en 200 y-coordinaten. 
De linker bovenhoek heeft als coördi¬ 
naten (24,50) en rechter onderhoek 

(343.249) . Alle x-coordinaten die klei¬ 
ner dan 24 of groter dan 343 zitten on¬ 
der de zijborder en alle y-coordinaten 
kleiner dan 50 en groter dan 249 zit¬ 
ten onder de border. De sprite komt 
met zijn linkerbovenhoek precies op 
de gekozen coördinaten te staan. De 
rest van de sprite komt rechtsonder 
de gekozen coördinaten te staan. Dit 
houdt in dat met coördinaten 

(343.249) de sprite geheel onder de 
border staat behalve het pixel linksbo¬ 
ven in de sprite. De gekozen y-coor¬ 
dinaat kan zonder meer in adres 
53249 gepoked worden. De x-coordi- 
naat geeft echter nog wat problemen, 
omdat een adres slechts waarden 
tussen 0 en 255 kan bevatten. We 
zullen ons voorlopig beperken tot de 
x-coordinaten die tussen 0 en 255 lig¬ 
gen. De grotere x-coordinaten zullen 
behandeld worden onder het kopje 
MSB. Met deze beperking kunnen we 
de x-coordinaat dus gewoon in adres 
53248 poken. 

Als laatste moet de sprite worden 
aangezet. Hiervoor dient adres 53269 
(Dit adres wordt wel het sprite enable 
register genoemd). Elk van de acht 
bits in dit adres correspondeert met 
een spritenummer. Bit 0 correspon¬ 
deert met spritenummer 0 etc. Het 
aanzetten van een sprite gebeurt door 
het correponderende bit aan te zet¬ 
ten. Voor sprite 0 gaat dit als volgt: 
POKE 53269,PEEK(53269) OR 2 A 0. 
In het algemeen kan een sprite wor¬ 
den aangezet met POKE 
53269,PEEK(53269) OR 2 A sprite- 
nummer. Het uitzetten gebeurt met 
POKE 53269,PEEK(53269) AND 
(255-2 A spritenummer). 

Het volgende programma zet de spri¬ 
te uit figuur 2 twee keer op het 
scherm. Een keer in gewoon formaat 
en een keer vergroot. De pokes die 
worden gebruikt om de sprite te ver- 
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groten en te kleuren worden verderop 
uitgelegd. Maakt u zich dus geen zor¬ 
gen als u het voorbeeld niet meteen 
helemaal snapt. 

10 rem sprite voorbeeld 
20 rem 

30 poke 53280, 0:poke 53281, 

0 

40 rem zet bytewaarden in 
geheugen 

50 for i=0 to 62:read a 
60 poke 832+i,a:next 
70 rem sprite-pointers 
80 poke 2040,13:poke 2041, 

13 

90 rem zet coördinaten 
100 for i=0 to 3:read a 
110 poke 53248+i,a:next 
120 rem vergroot sprite 1 
130 poke 53271,peek(53271) or 
2 

140 poke 53277,peek (53277) or 
2 

150 rem sprite kleuren 
160 poke 53287,2:poke 53288, 

7 

170 rem zet sprites aan 
180 poke 53269,peek (53269)or 
3 


210 data 0,0,0,0,0,0 
220 data 0,0,0,0,0,240 
230 data 28,3,14,54,4,6 
240 data 255,8,8,31,136,16 
250 data 7,240,16,3,240,24 
260 data 1,248,60,0,255,254 
270 data 0,127,254,0,31,248 
280 data 0,3,128,0,1,248 
290 data 0,0,12,0,0,4 
300 data 0,0,0,0,0,0,0,0,0 
310 rem coördinaten 
320 data 130,130,180,150 

Kleuren 

Elke sprite op het scherm kunt u af¬ 
zonderlijk een van de zestien be¬ 
schikbare kleuren geven. Voor de 
acht sprites zijn er acht kleuradres- 
sen, voor iedere sprite een. Deze 
adressen bevinden zich op de geheu- 
genlocaties 53287 tot en met 53294. 
Adres 53287 is het kleuradres bij spri- 
tenummer 0 en 53294 bij spritenum- 
mer 7. In deze adressen kunt u de 
waarde van een kleur poken. POKE 
53287,0 maakt bijvoorbeeld sprite 0 
zwart. 


Bij het uitlezen van de kleuradressen 
doet zich een klein probleem voor. De 
hoogste vier bits (bit 4-7) staan name¬ 
lijk altijd aan. De uitgelezen waarde is 
hierdoor altijd 240 groter dan de waar¬ 
de van de kleur. Dit kan verholpen 
worden door de waarde te vergelijken 
door middel van AND met 15. Dus 
PEEK(53287) AND 15 (copyright de 
Boer) geeft de kleur van sprite 0. 

MSB 

Onder het kopje sprites op het scherm 
zetten hebben we ons beperkt tot x- 
coordinaten tussen 0 en 255. Nu zul¬ 
len we uitleggen hoe sprites op x-co- 
ordinaten die groter zijn dan 255, kun¬ 
nen worden neergezet. Dit kan wor¬ 
den gedaan met behulp van een extra 
bit, genaamd Most Significant Bit 
(MSB). Elke sprite heeft een eigen 
MSB. Deze acht MSB’s zitten samen 
in adres 53264. Door het MSB van 
een bepaalde sprite aan te zetten, 
wordt aangegeven dat de x-coordi- 
naat van die sprite hoger is dan 255. 
Als dit bit eenmaal is aangezet, kan 
de waarde van de x-coordinaat ge¬ 
woon in het normale x-coordinaat 
adres worden gezet. Bij onze voor¬ 
beeld sprite was dit adres 53248. Er 
kunnen natuurlijk nog steeds geen 
waarden groter dan 255 in dit adres 
worden gezet, maar waarde 0 bete¬ 
kent nu (als het MSB bit aanstaat) dat 
de sprite op x-locatie 256 wordt gezet. 
Op deze manier kunt u x-coordinaten 
groter dan 255 aanspreken. De 8 
MSB’s van de acht standaard sprites 
zitten in volgorde van spritenummer 
in adres 53264 opgeslagen. Dit bete¬ 
kent dat als van sprite 0 het MSB 
moet worden aangezet, dit als volgt 
gedaan kan worden: POKE 
53264,PEEK(53264) OR 1. Door het 
MSB weer uit te zetten, komt de spite 
weer op de normale x-coordinaten te 
staan. In de praktijk zal waarschijnlijk 
blijken, dat u de MSB’s niet zo vaak 
gebruikt. Toch is het in sommige ge¬ 
vallen wel handig, bijvoorbeeld als u 
een pijltje over het hele scherm wilt 
laten bewegen, om iets aan te wijzen 

Sprites vergroten 

In feite is een sprite met zijn 504 
pixels maar een klein figuurtje op het 
beeld. U kunt de sprites echter ver¬ 
groten, met vergrotingsfactor 2. Een 
sprite kan zowel horizontaal als verti¬ 
kaal vergroot worden. Dit kan afzon¬ 
derlijk van elkaar gebeuren. Bij een 
horizontale en een vertikale vergro¬ 
ting, wordt de sprite dus vier keer zo 
groot. Het nadeel echter hiervan is, 
dat de sprite veel groffer wordt. Want 


200 rem bytewaarden 


Sprite adressen 


Adres 

Functie 

53248 

X-coordinaat sprite 0 

53249 

Y-coordinaat sprite O 

53250 

X-coordinaat sprite 1 

53251 

Y-coordinaat sprite 1 

53252 

X-coordinaat sprite 2 

53253 

Y-coordinaat sprite 2 

53254 

X-coordinaat sprite 3 

53255 

Y-coordinaat sprite 3 

53256 

X-coordinaat sprite 4 

53257 

Y-coordinaat sprite 4 

53258 

X-coordinaat sprite 5 

53259 

Y-coordinaat sprite 5 

53660 

X-coordinaat sprite 6 

53261 

Y-coordinaat sprite 6 

53262 

X-coordinaat sprite 7 

53263 

Y-coordinaat sprite 7 

53264 

MSB register 

53269 

Sprite enable register 

53271 

Vertikale vergroting 

53277 

Horizontale vergroting 

53287- 

Kleur registers sprite 0 

53294 

tot en met sprite 7 

2040- 

Sprite pointers sprite 0 

2047 

tot en met sprite 7 


Figuur 3 
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elk pixel wordt nu twee keer zo breed 
en/of twee keer zo lang. Voor beide 
vergrotingen bestaat er een apart 
adres in de VIC. Voor de vertikale ver¬ 
groting is adres 53271 gereserveerd 
en voor de horizontale 53277. De acht 
bits in deze adressen zijn hetzelfde 
geordend als de bits in het sprite ena- 
ble register en MSB register. Door bij¬ 
voorbeeld bit 0 van adres 53271 aan 
te zetten, wordt sprite 0 twee keer zo 
groot in vertikale richting. 

Animatie van sprites 

Animatie met sprites is redelijk simpel 
te bewerkstelligen. Dit komt natuurlijk 
omdat sprites aparte adressen heb¬ 
ben voor de locatie op het beeld¬ 
scherm. Het is daardoor niet moeilijk 
om een sprite over het scherm te la¬ 
ten bewegen. Het enige wat hiervoor 
gedaan moet worden, is het verande¬ 
ren van de x- en y-coordinaat van de 
desbetreffende sprite. Dit kan bijvoor¬ 
beeld in een FOR-NEXT loop worden 
gedaan, waarbij bij iedere iteratie de 
waarden van de coordinaat-adressen 
worden verhoogd of verlaagd. U moet 
er echter wel op letten dat, zodra de 
x-coordinaat de waarde 255 over¬ 
schrijdt het MSB moet worden gezet. 
Ook kunnen de waarden van deze co¬ 
ordinaat-adressen worden gekoppeld 
aan de joystick. De joystick kan (in 
port 2) worden uitgelezen in adres 
56320. Aan de hand van de richting 
van de joystick (oftewel de waarde 
van adres 56320) kunnen x- en y-co¬ 
ordinaat worden aangepast. Bij het 
bewegen van een sprite kan ook han¬ 
dig gebruik worden gemaakt van de 
coördinaten die zich achter de border 
bevinden. Door bijvoorbeeld een spri¬ 
te geheel achter de bovenborder te 
plaatsen en deze vervolgens lang¬ 
zaam naar beneden te bewegen, ver¬ 
schijnt de sprite stapje voor stapje op 
het scherm en niet in een keer. 

Met de hierboven gegeven voorbeel¬ 
den kunt u een sprite normaal over 
het beeld laten bewegen. Het wordt 
echter pas leuk als de sprite tijdens dit 
bewegen zelf ook verandert. Een 
voorbeeld hiervan is een poppetje dat 
tijdens het voortbewegen over het 
scherm ook echt zijn benen meebe¬ 
weegt. Om dit voor elkaar te krijgen, 
moet u van te voren eerst twee of 
meerdere sprites ontwerpen. In elk 
van deze sprites moet de stand van 
het poppetje iets veranderd zijn. Als 
dit gedaan is, moet u deze sprites al¬ 
lemaal ergens in het geheugen zetten 
(natuurlijk niet allemaal op dezelfde 
plek). Daarna kiezen we een sprite 
uit, zeg sprite 0. Van deze sprite moe¬ 


ten eerst de coördinaten goed worden 
gezet (bijvoorbeeld (100,100)) en 
daarna moet de sprite nog worden 
aangezet. Door nu de spritepointer 
van sprite 0 (adres 2040) steeds naar 
een andere ontworpen sprite in het 
geheugen te laten wijzen, verandert 
de sprite op het beeld. Door dit snel 
genoeg te doen en als de sprites 
slechts een klein beetje van elkaar 
verschillen ontstaat een vloeiende be¬ 
weging. 

U heeft dus een paar sprites in het ge¬ 
heugen staan en moet daarvan de 
waarden berekenen die in de sprite¬ 
pointer moeten worden gezet. Deze 
waarden werden verkregen door het 
eerste geheugenadres waar de sprite 
staat door 64 te delen. Deze waarden 
moet u om de beurt in de spritepointer 
van sprite 0 poken. Ook dit kan in een 
FOR-NEXT loop gebeuren. Door 
daarbij ook de locatie van de sprite te 
veranderen, krijgt u een echt bewe¬ 
gend figuurtje. 

Applicatie programma’s 

Als laatste geven we nog twee appli¬ 
catie programma’s. De eerste is een 
eenvoudige sprite-editor. Hiermee 
kunt op een gemakkelijke manier spri¬ 
tes ontwerpen en bytewaarden laten 
uitrekenen. Om een sprite te ontwer¬ 
pen, moet u met de joystick in poort 2 
een cursor over het scherm sturen. 
Met deze cursor kunt u tekenen, wis¬ 
sen en gewoon naar een andere po¬ 
sitie op het scherm gaan. Als de cur¬ 
sor een kruisje is, kunt u wissen. Als 
de cursor een bolletje is, kunt u teke¬ 
nen. En als de cursor een plusje is, 
kunt u de cursor gewoon bewegen 
zonder dat er iets aan het ontwerp 
verandert. U kunt door een aantal ma¬ 
len op de vuurknop van de joystick te 
drukken de juiste cursor uitkiezen. De 
rest van de bediening wijst voor zich. 

Animatie 

Het tweede programma vereenvou¬ 
digt het animeren van sprites. In Ba¬ 
sic is het lastig om met constante 
snelheid de vorm van de sprites snel 
te veranderen, waardoor de animatie 
vaak schokkerig wordt. Met dit machi¬ 
netaal programma kunt u sprites ech¬ 
ter probleemloos vloeiend bewegen. 
Als eerste moet u het programma run¬ 
nen. Aan de hand van een voorbeeld 
zullen we laten zien hoe u een figuur¬ 
tje in sprite 0 kunt laten bewegen. Als 
eerste tekent u een aantal verschil¬ 
lende standen van het figuurtje en 
slaat deze allemaal in het geheugen 
op. Daarna zet u sprite 0 op de juiste 


plaats op het scherm. Vervolgens 
moet aan de computer worden door¬ 
gegeven welke standen achtereen¬ 
volgens op het scherm moeten wor¬ 
den gezet, zodat animatie ontstaat. 
Hiervoor is voor elk van de acht spri¬ 
tes een tabel van 32 bytes beschik¬ 
baar. De tabellen van sprites 0 tot 7 
beginnen op de adressen 52992, 
53024, 53056, 53088, 53120, 53152, 
53184, 53216. In ons voorbeeld heb¬ 
ben we dus de tabel nodig, die op 
52992 begint. Eerst bepalen we van 
alle opeenvolgende standen van het 
figuurtje de spritepointers. Deze poin¬ 
ters moeten dan achter elkaar in de 
tabel worden gepoked. Als er bijvoor¬ 
beeld 3 verschillende standen zijn 
met spritepointers 13, 14 en 15, dan 
moeten deze in de adressen 52992 
tot 52994 worden gepoked. Achter 
deze pointers moet een 0 in de tabel 
worden gepoked. In ons voorbeeld 
dus in adres 52995. De computer 
weet dan wanneer alle figuurtjes aan 
de beurt zijn geweest. Tenslotte moet 
nog de snelheid van de animatie aan 
de computer worden gegeven. Hier¬ 
voor zijn de adressen 52984 tot 
52991 voor sprites 0 tot 7 nodig. De 
snelste snelheid is 1 en de langzaam¬ 
ste is 255. Een snelheid 0 betekent 
dat de sprite niet beweegt. Als we dus 
het figuurtje in sprite 0 met snelheid 4 
willen laten bewegen, moeten we in 
adres 52984 de waarde 4 poken. De 
computer zal nu een voor een de ver¬ 
schillende standen van het figuurtje 
op het scherm zetten. Na de laatste 
stand wordt weer de eerste stand op 
het scherm gezet, zodat sprite 0 con¬ 
tinu blijft bewegen. Om de beweging 
te stoppen moeten we een 0 in adres 
52984 poken. Met dit programma kunt 
u zo acht verschillende figuurtje tege¬ 
lijk animeren. 

Na STOP/RESTORE of reset is de 
machinetaal-routine uitgeschakeld. 
Om deze routine weer te activeren, 
moet SYS 49152 worden gebruikt. 
Veel succes ermee. 

Als hulp bij het programmeren van 
sprites, hebben we in figuur 3 alle be¬ 
handelde sprite adressen met een 
korte functie aanduiding bij elkaar ge¬ 
zet. In de volgende aflevering zullen 
we meer over sprites vertellen. We 
zullen het dan onder andere hebben 
over overlappen van sprites, multi-co- 
lor sprites en botsingen tussen spri¬ 
tes. En als truc de la truc sprites in 
meer dan 100! kleuren. 

Michel de Boer en Hylke Spranger 
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Listing 1. 

1 O rem 'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

2 0 rem * * 

30 rem * sprite - editor * 

40 rem * * 

50 rem ******************* 

6 0 rem 

70 rem initialisatie 
80 rem 

90 poke 53281,254:poke 53280,254 

100 ul (1)=86:ul(2)=81:ul(3)=43:u2(1)=32 

110 u2 (2)=160:u2(3)=32:dim js (16) 

'120 for x=6 to 15:read a : j s (x) =a : next 

130 for x=0 to 7 :poke53287+x,0 

140 poke 2040+x,248+x:next:for x=0 to 97 

150 read a:poke49152+x,a:next 

160 rem 

170 rem sprite kiezen 
180 rem 

190 printchr$(147)chr$(5); 

200 xc=1079:qq=32:cu=l 

210 print"Wfelke sprite veranderen (0-7)" 

220 input sn:if sn<0 or sn>7 then 210 
230 ga= (248+sn)*64:h=int(ga/256) :a=sn*2 
240 l=ga-256*h:poke 253,l:poke 254,h 
250 poke 53248+a,50:poke 53249+a,150 
260 print tab (40)"joystick in port 2" 

270 rem 

280 rem schermopbouw 
290 rem 

300 for q=0 to 2000:next:print chr$(147) 

310 for q-1038 to 1063:pokeq,90 
320 poke q+880,90:next 
330 for q=1038 to 1918 step 40 
340 poke q,90:poke q+25,90:next 
350 print"l: sprite af" 

360 print"2: beeld leeg" 

370 print"3: beeld vol" 

380 print"4: x,y klein” 

390 print"5: x groot" 

400 print"6: y groot":poke 53269,2 A sn 
410 rem 

420 rem joystick & toetsenbord uitlezen 
430 rem 

440 get a$:sys49152:poke xc,ul(cu) 

450 for t=0 to 70:next:if a$="l" then 610 

460 if a$="2" then op=32:gosub 680 

470 if a$="3" then op=160:gosub 680 

480 if a$="4" then poke 53271, 0:poke 53277,0 

490 if a$="5" then poke 53277,2 A sn 

500 if a$="6" then poke 53271,2 A sn 

510 a=peek(56320):ri=js(abs(a-111)) 

520 if a=lll then 560 

530 if ri=0 or peek(xc+ri)=90 then 440 
540 u2 (3)=qq:qq=peek(xc + ri) :xc=xc+ri 
550 poke xc-ri,u2(cu):goto 440 
560 cu=cu+l:if cu=4 then cu=l 
570 goto 440 
580 rem 

590 rem opties uitvoeren 
600 rem 

610 poke xc,qq:sys49152 

615 print chr$ (147) :poke 53269,0 

620 for x=0 to 20:printx":"; 

630 for y=0 to 2:print peek (x*3+y+ga); 

640 next:print:next 

650 print tab (40)"druk een toets in." 

660 get a$:if a$="" then 660 
670 goto 190 

680 a=1079:for x=0 to 20:for t=0 to 23 
690 poke a+t,op:next:a=a+40:next 
695 qq=op:return 
700 rem 

710 rem data getallen 


720 rem 

730 data 41,-39,1,0,39,-41,-1,0,40,-40 
740 data 169,0,141,252,207,169,4,133 
750 data 252,169,55,133,251,160,0,169 
760 data 0,141,253,207,162,7,177,251 
770 data 201,160,208,21,138,72,169,1 
780 data 224,0,240,5,10,202,76,32 
790 data 192,13,253,207,141,253,207,104 
800 data 170,202,200,224,255,208,223,152 
810 data 72,172,252,207,173,253,207,145 
820 data 253,104,168,238,252,207,192,24 
830 data 208,197,24,165,251,105,40,133 
840 data 251,165,252,105,0,133,252,201 
850 data 7,208,178,165,251,201,127,208 
860 data 172,96 


Listing 2. 

10 rem ******************* 

20 rem * sprite animator * 

30 rem ******************* 

40 rem 

50 for i=0 to 118:read a 
60 s=s+a:poke 49152+i,a 
70 next 

80 if S016888 then print "fout in data" 
90 sys 49152 

100 data 162,7,169,0,157,127,192,157 
110 data 248,206,169,1,157,119,192,202 
120 data 16,240,120,169,54,141,20,3 
130 data 169,192,141,21,3,169,127,141 
140 data 13,220,169,1,141,26,208,169 
150 data 250,141,18,208,173,17,208,41 
160 data 127,141,17,208,88,96,169,1 
170 data 141,25,208,169,0,133,251,169 
180 data 207,133,252,162,0,189,248,206 
190 data 240,30,222,119,192,208,25,189 
200 data 248,206,157,119,192,188,127,192 
210 data 177,251,208,6,157,127,192,168 
220 data 177,251,157,248,7,254,127,192 
230 data 24,165, 2 51, 105,32,. 133,2 51,232 
240 data 224,8,208,209,76,49,234 
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Het is alweer even geleden, maar hier zijn we weer. Een continuering van onze cursus 
Machinetaal. Tjipke van der Land gaat op zijn geheel eigen wijze door met het werken 
aan de 65XX processor die onze Commodore zo’n heel eigen karakter geeft. 

C-64 Machinetaal 


Deel 13: indirecte adressen 


O mdat we even afwezig zijn geweest gaan we deze keer er weer goed 
tegenaan. We zullen deze keer weer flink veel instructies doornemen. 
Maar voor we dat gaan doen, zullen we even terugblikken naar de vorige 
lessen in deze cursus. En dan kunnen we concluderen dat we geen onbe¬ 
kenden meer zijn op gebied van machinetaal. Als alles goed is zijn we op 
dit moment goed in staat te begrijpen hoe een microprocessor schematisch 
werkt. En uiteindelijk hebben we toch al heel wat programmaatjes gemaakt, 
die op zich aardig werken. 

Indirecte adressen 

De vorige keer zijn we gebleven bij de 
moeilijke geïndexeerd indirect X en 
de Indirect geïndexeerd Y Instructies, 
watje misschien nog steeds niet goed 
begrijpt. Al met al heb je in de tussen¬ 
liggende periode voldoende tijd ge¬ 
had om flink te kunnen oefenen met 
deze instructies, en krijg je nog ruim¬ 
schoots de kans om nog meer te oe¬ 
fenen, alleen al in de komende less¬ 
en, want een groot gedeelte van de 
machinetaal instructies hangt samen 
met deze vormen van adressering. 

Het enige wat we tot nu toe gedaan 
hebben is het laden van de accu 
langs de geïndexeerd indirect X en de 
indirect geïndexeerd Y manier. Het is 
dus niet zo dat het laden van de accu 
het voorrecht heeft om als enige ge¬ 
bruik te mogen maken van deze 
moeilijke maar zeer bruikbare instruc- 
tie-methode. Er zijn veel meer instruc¬ 
ties die langs deze weg zichzelf data 
en adressen kunnen verschaffen. 

Subroutine 

Voordat we daar mee door gaan, 
gaan we eerst terug naar het idee om 
het printen van strings te verwerken in 
een subroutine die telkens teksten 
ophaalt uit een datablok, waar deze 
teksten in staan opgeslagen, en ver¬ 
volgens afdrukt op de plek in het vi- 
deogeheugen (het scherm dus) waar 
je de tekst zichtbaar wilt hebben. 

Daarom laten we deze moeilijke in¬ 
structies voor het moment even links 
liggen om het begrip subroutine wat 
nadere onder de loep te nemen. Wat 
is eigenlijk een subroutine? Voordat 
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we verder kunnen met programmeren 
zullen we ons weer wat theoretische 
begrippen moeten eigene voordat we 
hiermee kunnen gaan werken. Een 
subroutine is wat hij met zijn bena¬ 
ming al een beetje duidelijk maakt, hij 
voerde een (SUB) programma uit. 
Dus in begrijpelijk Nederlands, hij 
springt uit een lopend programma 
naar een losstaand programma, wat 
op zijn beurt iets uitvoert ten behoeve 
van het hoofdprogramma, waar hij uit¬ 
gesprongen is, bijvoorbeeld de stand 
van een berekening op het scherm af¬ 
drukken. Stel dat een programma be¬ 
zig is met een heel gecompliceerde 
berekening of uitvoering van een pro¬ 
ces. Inmiddels zal je uit ervaring met 
de computer wel eens iets meege¬ 
maakt hebben in de trant van “Doet ie 
nog wat of zit hij vast” en al na een 
stevig halfuurtje begin je wat te twijfe¬ 


len, en zet je hem toch maar uit. Om 
dit te voorkomen en je wat meer ze¬ 
kerheid te verschaffen over het nog 
bezig zijn van de processor, kan je tij¬ 
dens de berekening of het verloop 
van het proces af en toe iets afdruk¬ 
ken op het scherm waardoor je weet 
dat hij inderdaad nog druk bezig is, 
met het uitvoeren van allerlei belang¬ 
rijke opdrachten. Dit af en toe iets af¬ 
drukken kan je laten doen door een 
subroutine of subroutine’s. Hoe gaat 
dat in zijn werk? Als een programma 
bezig is met iets uit te voeren komt het 
programma niet automatisch een 
keer per seconde op het idee om 
maar eens een subroutine uit te gaan 
voeren. Het is wel jammer, maar de 
techniek is op dit moment nog niet zo¬ 
ver dat een computer uit zichzelf iets 
gaat doen. 
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JMP instructie 

Het vervelende relaas is dan ook dat 
je dat zelf moet aangeven in een pro¬ 
gramma, wanneer je een subroutine 
uit wilt laten voeren. De vraag naar 
het “Hoe” zullen we nu wat beter be¬ 
kijken. De instructie om te springen 
naar een subroutine lijkt sprekend op 
een instructie waar we al wat mee te 
maken hebben gehad, namelijk de 
JMP instructie. 

Dit is immers een instructie waar je 
een sprong mee kan maken binnen 
een programma. Een voorwaarde 
voor deze sprong is wel dat je hem op 
de goede plek laat springen, want als 
je hem laat springen naar een plek 
waar geen instructies staan, hoef je 
niet een melding te verwachten van 
“ho ho verkeerde sprong”, want dan 
loopt hij gewoon vast. 

De instructie voor het springen naar 
een subroutine is JSR. De afkorting 
JSR (Jump to Sub Routine) geeft al 
min of meer weer wat staat te gebeu¬ 
ren. Een belangrijke vraag is echter 
wat het effectieve nut is van een su¬ 
broutine, en wanneer je een subrouti¬ 
ne precies laat uitvoeren. Een su¬ 
broutine heeft als nut je programma 
meestal (aanzienlijk) korter en op z’n 
minst overzichtelijker te maken. 
Bijvoorbeeld als je in een programma 
in totaal 300 teksten moet printen. Als 
je niet de beschikking hebt over een 
JSR instructie, zul je 300 keer een 
programmadeel moeten schrijven om 
de bedoelde tekst op zijn plaats te krij¬ 
gen. Je zult begrijpen dat je bij het 
40ste identieke programmadeel het al 
redelijk zat bent, zo erg zelfs dat je de 
overige 260 teksten er maar bij gaat 
denken en dat is niet de bedoeling. 
Daarom is de instructie JSR ook een 
welkome instructie op de lijst van in¬ 
structies voor luie wezens. 

Actie 

Belangrijk is het te weten wat precies 
gebeurt bij het uitvoeren van deze in¬ 
structie. Om te beginnen spring je met 
JSR uit het hoofdprogramma naar de 
bedoelde subroutine, bijvoorbeeld : 
JSR $2000. Eenmaal aangekomen bij 
het eerste adres van deze routine 
gaat deze de opdrachten uitvoeren 
zoals in een normaal programma, dus 
het laden van getallen in de accu en 
noem maar op. Aan het eind van deze 
subroutine gebruiken we een voor 
ons nieuwe instructie namelijk de 
RTS (ReTurn from Subroutine). Deze 
instructie zorgt ervoor dat je weer te¬ 
rug komt in het hoofdprogramma vlak 
na de instructie JSR. Een leuk ding 
om te weten is hoe de processor pre¬ 


cies kan onthouden waar hij terug 
moet komen na het uitvoeren van een 
subroutine. Dit begint eigenlijk al op 
het moment waar je hem laat sprin¬ 
gen naar de subroutine. Zodra de pro¬ 
cessor de JSR opdracht heeft geïnter¬ 
preteerd, gaat hij namelijk het huidige 
instructieadres + 2 opslaan op de 
STACK. 



gaat de opdrachten uitvoeren die ver¬ 
langd worden. Aan het eind van deze 
routine, dus wanneer hij weer terug 
moet naar het hoofdprogramma vin¬ 
den we aan het eind de instructie 
RTS. Deze instructie doet in wezen 
niets anders dan het oude adres van 
de stack halen. Zodra de waarde van 
de stack weer in de programma teller 
geladen is, verhoogt deze zichzelf 
automatisch met 1 en vervolgt het 
verdere instructie verloop. 

Om nog even terug te komen op wijze 
waarop de processor de waarde van 
de programma-teller op de stack zet: 
dit gebeurde door de programmatel- 
ler-waarde plus 2 op de stack te zet¬ 
ten. Waarom gebeurt dat eigenlijk? 
Dit is zo, omdat de instructie JSR al¬ 
leen maar absoluut kan adresseren. 


Dus met een volledig adres van twee 
bytes. Dit heeft automatisch tot ge¬ 
volg dat deze hele instructie uit 3 
byte’s bestaat. Dus vanaf het oude 
adres zou de programmateller pre¬ 
cies 3 bytes verder moeten om het 
programma te kunnen vervolgen. Als 
we dan even gaan rekenen zul je zien 
dat dit exact klopt. Bij de instructie 
RTS haalt hij de waarde van de pro¬ 
grammateller van de stack. Deze 
waarde was bij het plaatsen op de 
stack eerst verhoogd met 2, dus in 
wezen al met 2 bytes extra opgesla¬ 
gen. Zodra deze waarde is terug ge¬ 
lezen in de programmateller (pc) ver¬ 
hoogt deze zichzelf met 1, en dat was 
nog de ontbrekende byte, om pro¬ 
bleemloos door te kunnen gaan. 

Door middel van een simpel voor¬ 
beeldje zullen we laten zien hoe het 
ongeveer in zijn werk gaan om een 
subroutine aan te roepen, (zie fig. 1) 

Als je hier goed naar kijkt, zal het je 
opvallen dat de accu of registers niet 
worden beïnvloed door het springen 
naar een subroutine. Dus waar je hier 
rekening mee moet houden, is dat bij 
het onderbreken van een lopend pro¬ 
ces naar een gecompliceerde subrou¬ 
tine waar veel gebruik word gemaakt 
van de accu en andere registers, bij 
terugkeer in het hoofdprogramma 
deze waarden wel eens helemaal ver¬ 
keerd terug kunnen komen. In deze 
gevallen moet je eerst de registers die 
je wilt gaan gebruiken op de stack zet¬ 
ten, in dit voorbeeld de instructie’s 
PHA en PLA. Wat hier precies mee 
bedoeld wordt komen we op terug. 


: Hoofdroutine 

MNEMONIC 

COMMENTAAR 

.a 1000 LDA #$32 

Accu laden met eerste getal 

LDX #$00 

X register op nul zetten 

STA $0578,X 

1 Waarde accu in videogeheugen 

PHA 

Waarde accu op stack zetten 

JSR $1500 

Naar subroutine springen 

PLA 

Waarde accu van stack halen 

INX 

X register voor 2 keer verhogen 

STA $0578,X 

3 Waarde accu in videogeheugen 

BRK 

:Subroutine 

MNEMONIC 

COMMENTAAR 

,a 1500 LDA #$36 

Accu laden met tweede getal 

INX 

X register voor 1 keer verhogen 

STA $0578,X 

2 Waarde accu in videogeheugen 

RTS 

Terugspringen na JSR opdracht 


fig- 1 
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Registers 

Wat belangrijk is om te weten, is dat 
je niet zomaar een subroutine kunt 
aanroepen zonder te denken aan het 
lopende hoofdprogramma wat onder¬ 
broken wordt. Tenslotte gebruikt het 
hoofdprogramma de registers, die 
ook de subroutines gaat gebruiken. 
Een klein vergelijkbaar onderdeeltje 
is het op nul zetten van X- en Y-regis- 
ter, voordat we de registers gaan ge¬ 
bruiken, want er kan immers nog een 
foutieve waarde in zitten van een 
voorgaand programma, of andere 
subroutine. Daarom zullen we ook 
een aantal voorbeelden aansnijden 
om dit verschil duidelijk te maken. 
Voordat we dit goed uit kunnen leg¬ 
gen door middel van voorbeelden is 
kennis vereist van een aantal extra in¬ 
structies. Deze instructies die we no¬ 
dig hebben om het verschil tussen di¬ 
verse subroutines te begrijpen heb¬ 
ben betrekking op het tijdelijk bewa¬ 
ren van gegevens, die we in het latere 
verloop van het programma weer no¬ 
dig hebben. En van de vragen is dan 
hoe je tijdelijk gegevens op kunt 
slaan, en hoe ze weer terug te vinden 
zijn. 

Met dit probleem zullen we beginnen. 
De registers waar meestal belangrijke 
gegevens in staan zijn de accu, X- en 
Y-register, niet te vergeten de status- 
vlaggen die aangeven hoe de situatie 
is van een berekening is. 

Voorbeeld 

Bijvoorbeeld stel dat het resultaat van 
een berekening in de accu komt, en 
het antwoord past niet in de accu. Dit 
probleem is ooit eens in 1 van de eer¬ 
ste lessen behandeld (zo zie je maar 
weer dat je alles nodig blijft houden), 
door nadere studie van deze uitgaven 
komen we erachter dat dan de pro¬ 
cessor het overflow bit gaat zetten. 
Dus als je na het plaatsen van het ant¬ 
woord in de accu gaat springen naar 
een subroutine, die ook fiks aan het 
werk gaat met de accu, en je slaat 
voor het springen naar de subroutine 
alleen het antwoord van de accu op, 
kom je bedrogen uit als deze waarde 
weer terug wordt gehaald voor een 
verder vervolg van de berekening. 

Dus is het belangrijk om in dit geval 
ook de statusvlaggen op te slaan. Ge¬ 
lukkig voor ons heeft de 65xx daar 
standaard een aantal instructies voor 
die in een 1 byte instructie een aantal 
belangrijke gegevens kan wegschrij¬ 
ven. We gaan uitsluitend de instruc¬ 
ties behandelen die door de stan¬ 
daard 65xx worden afgewerkt, want 
er zijn namelijk speciafe uitvoeringen 


van de 65xx aangeduid met 65Cxx 
die over meer instructies op dit gebied 
beschikken dan de standaard 65xx. 
Deze extra instructie gaan we niet be¬ 
handelen, want bijna niemand van 
onze Commodore bezitters beschikt 
over zo’n processor. De instructies 
die wel door onze 65xx worden begre¬ 
pen zijn de PHA, PHP, PLA en PLP, 
waarvan we er net al een paar ge¬ 
noemd hebben. De instructie PHA 
(PusH A) stopt de waarde van de 
Accu op de stack, en de instructie 
PLA (PuLI A) haalt de waarde van de 
stack en plaatst hem weer in de accu. 
Voor de instructie PHP (PusH Pro¬ 
cessor status) geld hetzelfde als bij 
PHA alleen word hier de situatie van 
de vlaggen op de stack gezet. En ten¬ 
slotte voor de PLP (PuLI Processor 
status) die de toestand van de vlag¬ 
gen weer van de stack haalt. In het 
hierboven staande voorbeeld staan 
de zojuist behandelde instructie’s al 
verwerkt. Bij dit voorbeeld zie je dat 
we een waarde laden in de accu, 


deze vervolgens zichtbaar te maken 
door hem op te slaan in het video ge¬ 
heugen. Dan wordt de waarde van de 
accu op de stack gezet, en de accu 
vervolgens geladen met een ander 
getal, wat ook in het videogeheugen 
word opgeslagen. 

Dit doen we, zodat je kunt zien dat er 
inderdaad een ander getal in de accu 
heeft gestaan. Vervolgens halen we 
de oorspronkelijke waarde van de 
accu terug van de stack, en drukken 
ook dit af in het video geheugen. Als 
het goed is moet dus de eerste waar¬ 
de die afgedrukt is in het videogeheu¬ 
gen gelijk zijn aan de derde waarde. 
Zo krijg je ongeveer een indruk hoe dit 
in z’n werk gaat. Dit is belangrijk om 
te weten, omdat je soms ook waar- 
de’s wilt doorgeven aan de subrouti¬ 
ne, waarmee je de subroutine wilt 
aangeven waar hij bijvoorbeeld indi¬ 
rect andere waarden kan halen. Denk 
bijvoorbeeld maar eens aan ons voor¬ 
beeld in de vorige uitgaven, waar we 
Indirect geïndexeerd Y een string in 



l_____ 

..DE HOEVEELSTE IS HET VftNOAAQ ?... 


18 


Commodore Info 4189 




C-64 


het videogeheugen hebben geplaatst. 
Het startadres van deze string kan je 
door middel van de accu doorgeven 
aan de subroutine. Belangrijk is dan 
dat de oorspronkelijke waarde van 
accu op de stack wordt gezet, waar¬ 
door je hem na de subroutine gewoon 
terug kunt halen. 

Programmeer-opdracht 

Iets wat ook belangrijk is binnen een 
subroutine, om zoveel mogelijk akties 
met het X- of Y-register en de accu af 
te ronden om niet in de verwarring te 
raken bij het verlaten van de subrou¬ 
tine als je weer met deze zelfde regis¬ 
ters door moet werken. Dus het door¬ 
geven van waarden en het terughalen 
van waarden in een subroutine moet 
je eigenlijk zoveel mogelijk het ge¬ 
bruik van registers vermijden. Je kunt 
dat wel gaan doen als je een speciaal 
stukje geheugen voor pakt om even¬ 
tueel uitwisselbare waarden in te 
plaatsen. Je hebt net kunnen zien dat 
het opslaan van eenvoudige zaken 
zoals de accu en statusvlaggen met 
een standaard instructie kan worden 
verzorgd. Voor het geval je andere 
gegevens wilt opslaan, zoals het Y- 


register en het X-register, dan moet je 
je toevlucht nemen tot je eigen pro- 
grammeerkunst om dit veilig te bewa¬ 
ren. 

Een leuke opdracht voor de volgende 
keer is dan ook dat je zelf een pro¬ 
gramma maakt waarin je een subrou¬ 
tine aanroept. Voordat je de subrouti¬ 
ne aanroept moet je echter alle regis¬ 
ters opslaan, dus Accu, X- en Y re¬ 
gister, de statusvlaggen en noem 
maar op. Als je terugkomt uit de routi¬ 
ne moet je ze uiteraard weer terugha¬ 
len. Om je een klein beetje op weg te 
helpen krijg je een paar tips. 

Voor het opslaan van de accu en de 
statusvlaggen heb je een paar in¬ 
structie beschikbaar. En voor het op¬ 
slaan van het X en het Y register moet 
je maar gaan experimenteren met de 
instructies STX en STY. Deze instruc¬ 
ties werken precies als de instructie 
STA, alleen de laatste letter staat 
voor het register wat je wilt opslaan. 
Elke keer na het opslaan van de re¬ 
gisters, moet je ze maar eens laden 
met een andere waarde, wat je in we¬ 
zen in de subroutine kunt doen. 

De bedoeling hiervan is dat je kunt 
zien of je de juiste waarde wel terug 
haalt. Het terughalen van het X- en 


het Y- register doe je met de instruc- 
tie’s LDX en LDY die precies werken 
als de LDA instructie. De volgende 
keer beginnen we met het uitwerken 
van de opdracht die je nu zelf moet 
gaan maken. Bedenk wel, hoe meer 
je voor jezelf uitprobeert des te beter 
begrijp je hoe het allemaal werkt. 
Voor deze keer laten we het bij deze 
informatie, omdat je voldoende stof 
hebt om te oefenen. Vergeet de stof 
van de vorige keren niet want die 
komt sneller terug dan je denkt, met 
de geïndexeerde en de indirect me¬ 
thoden. 

Oefen veel met deze nieuwe instruc¬ 
ties, met name de push en pull in¬ 
structief om te kijken wat je er alle¬ 
maal mee kan doen. Voor de volgen¬ 
de keer gaan we een gecombineerd 
gebruik maken van deze instructief, 
maar voordat het zover is moet je ook 
hiermee flink oefenen om niet bij het 
combineren van deze instructies het 
spoor bijster te raken. Dus doe je 
best, want het begint nu echt interes¬ 
sant te worden, tot de volgende keer 
maar weer, en de groeten van CHIP. 

Tjipke van der Land 
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Infolist uit Huizen levert al sinds jaar en dag de programma’s, die wij publiceren ihnhzé Print-Out rubriek. 
Voor de Amiga is er lange tijd maar 1 diskette leverbaar geweest: de Introschijf. Zbafedi naam al ; dbÊt ver¬ 
moeden, zou het er niet bij één blijven. We hebben al een groot aantal listings vböh de Amiga geplaatst en 
daarom is het totaal aantal diskettes voor de Amiga gestegen tot vier. Prijs per s'idk 'f, '1 !F : i 'j ■ 'j ’ 


Busware 1 (Introschijf), bevüfteen groot aantal Utilities en demo’s. Zoals : niet al jdëéeiseffijheii start I 
U zonder problemen deze programmaElk programma is te starten dóór hit aanklikken vari hét daarbij [ 
behorende ikoon. 


Busware 2, bevat een aantal programmaflèn jutilitptis die hét léven kunnen veraangenamen. Wave Crea- 
tor is een programma waarmee je golfvormen kunt samiehstelleri. Achter het:jthogramma staat de routine I 
om de golfvormen te laden en af te spelen. MëÉ;j>etödpY|ji : i het | n'bghpïi iha' Schéma teken ëÉ 1 k u n t u zelf clce- 
trische schema’s ontwerpen (volledig menu gesfüurd)j. Slang-is-een eenvoudig maar vesiavend Amiga spel¬ 
letje. Sterretjes moeten worden verzameld, maarketsen is dodelijk. • : f 

Busware 3, bevat het programma PuntenkaarLv Hiermee is op éénvoudig wijze bij te houden wat de re- 1 
petitie-punten zijn. Zelf is te bekijken welke puntjn men moet gaan halen om tpeli nog een voldoende te 
krijgen. Naast de Basic listing is een gecompileerde : (dus=«nell ; erepiersie opgenom|n. Ook op schijf de - gra- [ 

fische prachtige - uitleg, die op zichzelf al de moeite waard is. "...... jp 

, . . . -1? 

Busware 4, hierop staat het programma Gas & Electra. Om deze diskette is al door een groot aantal le¬ 
zers gevraagd. Iedereen wil de meterstanden goed bijhouden. Het programma houdt alle gegevens overzich-1 
telijk bij elkaar, men kan zelfs zien of men zuinig is met de energie in vergelijking met de vorige periode. Ook 
op deze schijf is de uitleg in een grafische presentatie opgenomen. 

Bestellen door overmaken van het betreffende bedrag + jüiste nummer op giro 3157656 Infolist Amster¬ 
dam, o.v.v. Amiga Busware 
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Deze keer behandelen Hylke Sprangers en Michei de Boer vier tips. De eerste tip 
verbetert de Basic RESTORE-instructie. De tweede en de derde tip zijn vooral 
bedoeld voor de machinetaal programmeur en de laatste tip gaat over een geliefd 
onderwerp: de klok. 

TIPS & TRUCS 64 


Restore met regelnummer 

Met de DATA-instructie kunnen gege¬ 
vens, in de vorm van getallen of 
tekststrings, in een programma wor¬ 
den gezet. Deze gegevens kunnen 
dan een voor een door middel van 
een READ-opdracht in een variabele 
gelezen worden. Als de gegevens in¬ 
gelezen worden, wordt intern een 
data-pointer bijgehouden, waar de 
computer is met lezen van de gege¬ 
vens. Dus steeds als er iets gelezen 
is, wordt deze pointer verhoogt, zodat 
hij naar het volgende gegeven wijst. 
Met de instructie RESTORE kan deze 
pointer weer teruggezet worden naar 
het eerste gegeven in de DATA-lijst. 
Zo kan de informatie in de DATA-sta- 
tements weer opnieuw gelezen wor¬ 
den. De Commodore 64 heeft stan¬ 
daard echter niet de mogelijkheid om 
van een willekeurige data-regel een 
gegeven in te lezen. U kunt dus niet 
een regelnummer meegeven met de 
RESTORE-instructie, om dan vervol¬ 
gens van die data-regel iets in te le¬ 
zen (op sommige andere computers 
kan dit wel, bijvoorbeeld: RESTORE 
100. Met een READ instructie wordt 
daarna het eerst volgende gegeven 
van regel 100 gelezen). 

Er bestaat een manier om dit op te 
lossen. De computer moet dan ver¬ 
teld worden, waar het gegeven staat 
dat als eerste gelezen moet worden. 
Er is echter een beperking: het gege¬ 
ven kan niet midden in een data-sta- 
tement staan, maar vooraan de regel 
staan. De data-pointer moet dan on¬ 
der andere veranderd worden. Met 
het volgende machinetaal-program- 
ma kunt u een RESTORE met regel¬ 
nummer imiteren. Eerst moet de ma- 
chinetaal-routine in het geheugen ge¬ 
zet worden op adres 49152. Als u dan 
bijvoorbeeld van regel 70 iets wil le¬ 
zen, moet u de hi- en lo-byte van 70 
in de zero-page adressen 64 en 63 
zetten. Dit gaat als volgt: hi-byte = 
int(70/256) en lo-byte = 70-hi*256. 
Daarna moet de machinetaal-routine 
aangeroepen worden (SYS 49152). 
Het tweede programma geeft hier een 


voorbeeld van. 

10 rem restore met 
regelnummer 

20 for x = 0 to 23:read i 
30 poke 49152+x,i:next 
40 data 165,63,133,20,165 
50 data 64,133,21,32,19,166 
60 data 165,95,233,1,133,65 
70 data 165,96,233,0,133,66, 
96 

10 rem voorbeeld 
20 rn = 70:hi = int(rn/256) 
30 lo = rn-hi*256:poke 63,lo 
40 poke 64,hi:sys 49152 
50 read a$:print a$ 

60 data artvark,noot,mies 
70 data commodore 


TOD klok 

Er zijn veel toepassingen waarbij een 
tijd moet worden bijgehouden (bij¬ 
voorbeeld de denktijd in een schaak¬ 
spel). In Basic kan dit worden gedaan 
via de variabelen Tl$ en Tl. Deze va¬ 
riabelen worden zestig maal per se¬ 
conde bijgewerkt door de interrupt- 
routine. Helaas wordt deze interrupt- 
routine tijdens het laden van en saven 
op tape of disk vertraagd, waardoor 
de klok gaat achterlopen. De klok 



gaat ook achterlopen, als er zelfge- 
programmeerde interrupts worden 
gebruikt. In deze gevallen zijn de va¬ 
riabelen Tl$ en Tl niet geschikt voor 
het bijhouden van de tijd. Gelukkig 
beschikt de Commodore nog over 
een andere klok, die direct door een 
interne klok wordt bijgehouden en niet 
door de interrupt-routine, zodat de 
twee bovenbeschreven problemen 
zich niet meer voordoen. Deze klok 
wordt de Time Of Day (TOD) klok ge¬ 
noemd. 

Deze klok houdt de tijd in uren, minu¬ 
ten, seconden en tiende seconden bij. 
Ook wordt bijgehouden of de tijd AM 
of PM is. Het is zelfs mogelijk om een 
alarmtijd te zetten. 

De TOD klok bevindt zich op de ge¬ 
heugen adressen 56328 tot en met 
56331. In figuur 1 staat wat er in deze 
adressen wordt bijgehouden. De 
waarden van deze adressen kunnen 
echter niet zonder meer worden uitge¬ 
lezen. Deze waarden staan namelijk 
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Adres 

Functie 

56328 

Tiende seconden (BCD) 

56329 

Seconden 

(BCD) 

56330 

Minuten 

(BCD) 

56331 

Uren (BCD) 


bit 0-3: 

rechter cijfer 


bit 4 : 

linker cijfer 


bit 7 : 

1=PM, 0=AM 

56333 

Alarm 



bit 2 : 

l=alarmtijd bereikt 

56334 

Frequentie 


bit 7 : 

1=50 Hz, 0=60 Hz 

56335 

Tijd zetten 


bit 7 

0=zet gewone tijd 



l=zet alarmtijd 


Figuur 1. Adressen van de TOD klok 


in het zogenaamde Binary Coded De- 
cimal (BCD) formaat. (Zie voor uitge¬ 
breide uitleg de tip over BCD getal¬ 
len.) Feitelijk komt het erop neer dat 
PEEK(adres) AND 15 het rechter cij¬ 
fer van de decimale waarde oplevert 
en (PEEK(adres) AND 240)/16 het 
linker cijfer van de decimale waarde 
oplevert. Bij de uren is er echter een 
kleine uitzondering. Zoals in figuur 1 
te zien is, wordt alleen bit 4 in plaats 
van bits 4-7 gebruikt voor het linker 
cijfer. Dus hier moet (PEEK(56331) 
AND 16)/16 worden gebruikt om het 
linker cijfer te bepalen. Door bit 7 van 
adres 56331 te testen kan bepaald 
worden of de tijd AM dan wel PM is. 
Als de uitkomst van PEEK(56331) 
AND 2 A 7 gelijk is aan 128 dan staat 
bit 7 aan en is de tijd dus PM anders 
is de tijd AM. Bij het schrijven van 
deze adressen moet niet de gewone 
waarde worden gepoked maar 16*lin- 
kercijfer + rechtercijfer. 

Er is een probleem bij het uitlezen van 
de tijdadressen. Stel bijvoorbeeld dat 
de tijd 08:59:59 is. Na het uitlezen van 
de uren kan de klok overspringen op 
09:00:00 zodat bij het uitlezen van de 
minuten de waarde 0 wordt verkre¬ 
gen, waardoor u zou denken dat de 
tijd 08:00:00 is. Dit probleem is door 
de makers van Commodore opgelost 
door te stoppen met het veranderen 
van de tijdadressen, nadat het adres 
voor de uren is uitgelezen. Intussen 
loopt de interne klok wel door. Pas na¬ 
dat de tiende seconden zijn uitgele¬ 
zen, worden de tijdadressen weer bij¬ 
gehouden. Als u de tijdadressen wilt 
lezen moet u dus als eerste de uren 
lezen en als laatste de tiende secon¬ 
den uitlezen, ook al heeft u deze ver¬ 
der niet nodig. 

Om de tijd in te stellen moet eerst bit 
7 van adres 56335 worden uitgezet 
met POKE 56335,PEEK(56335) AND 
127. Vervolgens moet bit 7 van adres 
56334 worden aangezet met POKE 
56334,PEEK(56334) OR 128. Dit bit 
geeft aan of de frequentie van het 
lichtnet 50 Hz (bit is aan) of 60 Hz (bit 
is uit) is. In Europa is die frequentie 50 
Hz. Vervolgens kan in de tijdadressen 
de juiste tijd worden gepoked. U moet 
dan wel weer opletten dat de waarden 
BCD getallen zijn. Als het aantal mi¬ 
nuten bijvoorbeeld 25 is moet in adres 
56330 niet 25 maar 16*2+5 worden 
gepoked. Om dezelfde reden als bij 
het lezen wordt het veranderen van 
de adressen gestopt na het poken 
van de uren en weer gestart na het 
poken van de tiende seconden. Het 
volgende programma is een voor¬ 
beeld van de werking van de klok: 


5 rem tod klok 

10 print "voer tijd in:" 

20 poke 56335,peek(56335) and 

127 

25 poke 56334,peek(56334) or 

128 

26 gosub 500:print chr$(147) 

30 ul=peek(56331) and 15 

40 u2=(peek(56331) and 16)/16 
50 u$=chr$ (u2 + 48)+chr$(ul + 48) 
60 ml=peek(56330) and 15 
70 m2=(peek(56330) and 
240)/I6 

80 m$=chr$(m2 + 48)+chr$ (ml + 48) 
90 sl=peek (56329) and 15 
100 s2= (peek(56329) and 
2400/16 

110 s$ = chr$ (s2 + 48)+chr$ (sl + 48) 
120 a$="am” 

130 if peek (5 6331) and 128 
then a$="pm" 

140 print chr$(19)u$": 

"m$":"s$" "a$ 

150 ts=peek(56328):rem 
herstart klok 
160 goto 30 
500 input "uren";u 
510 input "minuten";m 
520 input "seconden";s 
530 input "am/pm";a$ 

540 ul=int(u/10):u2=u-ul*10 
550 poke 56331,u2+ul*16- 

(a$ = "pm")*128 

570 ml=int(m/10):m2=m-ml*10 
580 poke 56330,m2+ml*16 
590 sl=int (s/10) :s2=s-sl*10 
600 poke 56329,s2+sl*16 
610 poke 56328,0 
620 return 

Ook is het mogelijk om een alarmtijd 
in te stellen. Deze alarmtijd moet op 


dezelfde manier worden gezet als de 
gewone tijd; alleen moet van tevoren 
bit 7 van adres 56335 worden aange¬ 
zet in plaats van uitgezet. Zodra de 
gewone tijd de alarmtijd heeft bereikt, 
zet de computer bit 2 van adres 
56333 aan. Door vanuit een program¬ 
ma op dit bit te testen, kan een be¬ 
paalde actie worden uitgevoerd als de 
alarmtijd bereikt is (bijvoorbeeld een 
geluidssignaal geven). Dit testen kan 
als volgt gebeuren: IF PEEK(56333) 
AND 2 A 2 THEN actie. Nadat adres 
56333 is uitgelezen, wordt het bit uit¬ 
gezet. 

In de computer bevindt zich nog een 
tweede TOD klok, waardoor het mo¬ 
gelijk is om tegelijk twee verschillende 
tijden bij te houden. Deze tweede klok 
heeft precies dezelfde faciliteiten als 
de eerste. Alle adressen die nodig zijn 
voor deze klok zijn 256 groter dan de 
adressen van de eerste klok. De tijda¬ 
dressen bevinden zich bijvoorbeeld 
op 56584 tot 56587. 

RAM onder $A000 en $E000 

De Commodore 64 heeft een 6510 
microprocessor. Deze microproces¬ 
sor gebruikt 16 bits om een 
geheugenadres te representeren en 
derhalve kan de Commodore 64 niet 
meer dan 64 Kilobytes adresseren 
(Het grootste adres wat namelijk in 16 
bits gerepresenteerd kan worden, is 
65535). Deze 64K bestaan voor een 
deel uit RAM (Random Access Me- 


Commodore Info 4189 


21 






C-64 


mory; feitelijk is dit een slechte naam, 
want elk geheugen is een random ac- 
cess memory, ofwel willekeurig toe¬ 
gankelijk) en voor een deel uit ROM 
(Read Only Memory). In RAM kan ge¬ 
lezen en geschreven worden met 
PEEK en POKE, en in ROM kan al¬ 
leen gelezen worden. Overigens is de 
SID (muziekchip) WOM, Write Only 
Memory. Hier kan dus alleen in ge¬ 
schreven worden. Bij het uitlezen 
krijgt u als waarden allemaal nullen. 
De Commodore bezit twee gebieden 
ROM elk ter grootte van 8K. Ten eer¬ 
ste het gebied van 40960 tot 49151 
(hexadecimaal $A000 tot $BFFF). In 
dit gebied zit de Basic-interpreter. Dit 
gedeelte van de computer voert alle 
commando’s en instructie’s uit die u 
vanuit Basic invoert. Het tweede ge¬ 
bied loopt van 57344 tot 65535 
($E000 tot $FFFF) en in dit gebied zit 
het Operating System (de kernal) van 
de Commodore. Hier zit onder andere 
de communicatie met de randappara¬ 
tuur. Verder zorgt de kernal ook voor 
het bijhouden van allerlei registers en 
adressen (bijvoorbeeld zero-page 
adressen). 

Onder deze twee gebieden ROM zit 
een evengroot stuk RAM , dat u ge¬ 
woon kunt gebruiken. Als u normaal 
vanuit BASIC een waarde ergens in 
dit gebied poked, dan wordt deze 
waarde in het RAM, wat verborgen zit 
onder het ROM, gepoked. POKE 
41000,255 zet bijvoordbeeld waarde 
255 in het RAM onder het Basic-ROM 
in adres 41000. Het is natuurlijk lo¬ 
gisch dat deze waarde niet in het 
ROM geheugen wordt gezet, want in 
ROM kan alleen maar gelezen en niet 
geschreven worden. Doet u echter 
PRINT PEEK(41000) dan krijgt u wel 
de waarde van de betreffende ROM 
geheugenplaats. Op deze manier 
heeft u natuurlijk niets aan het RAM, 
want er kan zo wel in geschreven wor¬ 
den, maar niet in gelezen worden. Het 
is echter mogelijk om de ROM gebie¬ 
den geheel uit te schakelen. De beide 
gebieden ROM kunnen onafhankelijk 
van elkaar worden uitgeschakeld. Het 
Basic-ROM wordt uitgeschakeld en 
vervangen door RAM door bit 0 van 
geheugenplaats 1 uit te zetten: POKE 
1,PEEK(1) AND 254. Vanuit machi¬ 
netaal kan dit natuurlijk gewoon ge¬ 
daan worden, maar vanuit Basic slaat 
de computer natuurlijk goed vast als 
dit zonder meer gedaan wordt. Vanuit 
Basic heeft u immers de Basic-inter¬ 
preter nodig. Als u toch vanuit Basic 
het RAM gebied wilt aanspreken, 
moet eerst het hele ROM gebied naar 
het RAM gekopieerd worden. Dit 
wordt als volgt gedaan: 


FOR I = 40960 TO 49151:POKE 
.I, PEEK(I):NEXT 

Als dit gedaan is, kan het ROM wor¬ 
den uitgeschakeld met POKE 
1 ,PEEK(1) AND 254. Nu kunt u bij¬ 
voorbeeld wat instructies van naam 
veranderen. Als voorbeeld de volgen¬ 
de poke: POKE 41853,63. Het woord 
READY zal dan veranderen. Er kun¬ 
nen natuurlijk nog meer dergelijke 
grappen worden uitgevoerd, maar 
vanuit Basic heeft u al met al niet zo¬ 
veel aan dit verborgen stuk RAM. Het 
Basic-ROM kan weer worden aange¬ 
zet door bit 0 van adres 1 aan te zet¬ 
ten: POKE 1 ,PEEK(1) OR 1. In ma¬ 
chinetaal heeft u wel veel aan dit on¬ 
derliggende RAM, want bij het werken 
in machinetaal heeft u uiteraard geen 
Basic-interpreter nodig. Er kan bij¬ 
voorbeeld heel mooi een hires-plaatje 
van 8K in dit gebied worden opgesla¬ 
gen. 

Op dezelfde manier kan ook het twee¬ 
de ROM gebied worden gebruikt 
($E000 - $FFFF). Om dit gebied uit te 
schakelen moet het tweede bit van 
adres 1 op nul worden gezet: POKE 
1 ,PEEK(1) AND 253. Vanuit Basic 
kan het RAM achter het ROM van de 
kernal niet worden aangesproken. In 
machinetaal kan dit wel worden ge¬ 
daan. Als de kernal is uitgeschakeld 
heeft u echter geen ROM-routines 
meer (tenzij u natuurlijk een stuk kern¬ 
al ROM naar het achterliggende RAM 
kopieert). Verder moet er ook heel 
goed worden uitgekeken met de inter- 
rupt. Alle handelingen van de inter- 
rupts (zoals IRQ-, break- en NMI-in- 
terrupt) worden namelijk uitgevoerd in 
de kernal. Daarom moet voor het uit¬ 
zetten van de kernal, de interrupt uit¬ 
gezet worden. Dit gebeurt met de ma- 
chinetaal-instructie SEI (Set interrupt 


disable bit). Pas als u de kernal weer 
aanzet, mag de interrupt weer aange¬ 
zet en gebruikt worden. Dit aanzetten 
van de interrupt gebeurt met CLI (Cle- 
ar interrupt disable bit). Het volgende 
programma geeft een klein voor¬ 
beeld. 

MNEMONICS 

sei 

lda $01 
and #$FD 
sta $01 

lda $01 
ora #$02 
sta $01 
cll 


COMMENTAAR 

zet interrupt uit 
zet bit 2 van 
adres 1 uit 

programma 

bit 2 van adres 1 

weer aan 

interrupt aan 


BCD getallen 

Een lastig probleem bij het program¬ 
meren in machinetaal is het printen 
van getallen. Het getal moet daarvoor 
namelijk ontbonden worden in eenhe¬ 
den, tientallen, honderdtallen etc., om 
te bepalen uit welke cijfers het getal is 
opgebouwd. Daarna moet van elk cij¬ 
fer de ASCII-waarde bepaald worden. 
Zo kan het getal 25 worden ontbon¬ 
den in 2*10 en 5*1. De cijfers waaruit 
25 dus is opgebouwd, zijn dus 2 en 5. 
Deze cijfers kunnen worden omgezet 
in ASCII-waarden door bij elk cijfer de 
ASCII-waarde van het cijfer 0 op te 
tellen. (De ASCII-waarde van het cij¬ 
fer 0 is 48.) De zo verkregen ASCII- 
waarden kunnen dan op het scherm 
worden gepoked. Het omrekenen 
naar ASCII is dus zeer makkelijk. De 
moeilijkheid zit hem echter in het ont¬ 
binden van het getal. Hiervoor moet 
namelijk gedeeld worden. Om bijvoor¬ 
beeld het aantal tientallen te bereke¬ 
nen in 25, moet 25 door 10 gedeeld 
worden en de uitkomst naar beneden 


Het berekenen van ASCII-waarden voor BCD-getallen 

MNEMONICS 

COMMENTAAR 

sed 


decimale rekenmode 

lda 

#$15 

laad accu met BCD 15 

de 



adc 

#$10 

tel BCD 10 bij accu 

cld 


normale rekenmode 

pha 


zet acxcu op stack 

and 

#$0f 

bereken recht, cijfer 

adc 

#$30 

bereken ASCII-waardde 

sta 

$0401 

zet op scherm 

pla 


bereken linker cijfer 

Isr 


schuif accu 4 bits naar rechts 

Isr 



Isr 



Isr 



adc 

#$30 

bereken ASCII-waarde 

sta 

$0400 

zet op scherm 
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afgerond worden. In machinetaal is 
het uitvoeren van een deling echter 
een lastig karwei. 

De Commodore 64 beschikt echter 
over een zogenaamde decimale re¬ 
kenmode, waardoor het ontbinden 
van getallen een stuk eenvoudiger 
wordt. Normaal kan in 4 bits een getal 
tussen 0 (%0000) en 15 (%1111) wor¬ 
den gerepresenteerd. (De technische 
term voor een groep van 4 bits is een 
nibble. De getallen die beginnen met 
een ’%’ zijn binaire representaties.) In 
een byte (2 nibbles) kan dan maxi¬ 
maal 255 (%11111111) worden gere¬ 
presenteerd. In de decimale mode 
kan echter maar een cijfer tussen 0 en 
9 (%1001) per nibble worden gerepre¬ 
senteerd, waardoor in een byte maxi¬ 
maal 99 (%10011001) kan worden 
gerepresenteerd. Getallen die op 
deze manier gerepresenteerd wor¬ 
den, worden Binary Coded Decimal 
(BCD) getallen genoemd. Zoals u uit 
de binaire representatie van 99 kunt 
zien, bevat het rechter nibble (bit 0-3) 
van het byte het rechter cijfer van het 
getal en het linker nibble (bit 4-7) het 
linker cijfer. Dit heeft tot gevolg dat de 


cijfers waaruit een getal is opge¬ 
bouwd, heel eenvoudig bepaald kun¬ 
nen worden; door het byte te vergelij¬ 
ken door middel van AND met 15 
(%00001111) wordt het rechter cijfer 
verkregen. Door te vergelijken door 
middel van AND met 240 
(%11110000) en vervolgens de uit¬ 
komst 4 bits naar rechts te schuiven 
(met 4 keer LSR) wordt het linker cij¬ 
fer van het getal verkregen. Deze cij¬ 
fers kunnen dan weer, zoals eerder is 
uitgelegd, omgezet worden in ASCII- 
waarden. 

Om een register te laden met een 
BCD getal kan handig gebruik worden 
gemaakt van hexadecimale getallen. 
De cijfers van een hexadecimaal ge¬ 
tal komen precies overeen met de 
waarde van de nibbles. Het linker nib¬ 
ble van het hexadecimale getal $15 
heeft bijvoorbeeld de waarde 1 en het 
rechter nibble 5. Deze waarden ko¬ 
men precies overeen met het BCD 
getal 15. Een register kan dus een¬ 
voudig met een BCD getal worden 
geladen via een hexadecimaal getal. 
LDA #$15 zorgt er voor dat de accu 
het BCD getal 15 bevat. 


Om twee BCD getallen op te tellen of 
af te trekken, moet de computer eerst 
in de decimale rekenmode gezet wor¬ 
den. Dit gebeurt met de machinetaal 
instructie SED. Met CLD wordt de 
computer weer in de normale reken¬ 
mode gezet. U moet opletten dat u bij 
het omzetten van cijfers in ASCII- 
waarden de computer in de normale 
rekenmode zet, omdat ASCII-waar- 
den geen BCD getallen zijn. 

Het volgende programma telt 10 bij 15 
op en zet de uitkomst op het scherm. 
Soms moet vanuit Basic met BCD ge¬ 
tallen gewerkt worden, zoals in de tip 
over de TOD klok. BCD getallen kun¬ 
nen in een adres worden gepoked 
door middel van POKE adres, 16*lin- 
kercijfer + rechtercijfer. Dus POKE 
49152,16*9+5 zorgt ervoor dat adres 
49152 BCD getal 95 bevat. Het rech¬ 
ter cijfer van een opgeslagen BCD 
getal kan worden berekend met 
PEEK(adres) AND 15. Het linker cijfer 
met (PEEK(adres) AND 240)/16. 


Michel de Boer & Hylke Spranger 


SrrU UGHT SOFT 




ïi 


ammerg 


SETTLE LIGHT SOFT S 

DAMMEN 

Eindelijk een tegenstander op niveau! 

★ Nederlandse handleiding met regels en taktische tips 

★ demonstratie-partijen 

★ invoeren van zetten met toetsen, cursor of joystick 

★ terugnemen van vorige zet 

★ zelf opzetten van standen 

★ computer speelt zwart of wit 

★ spiegelen van bestaande stand 


In de betere computershop voor 


ƒ 45," (diskette, ii 


incl BTW) 


Te bestellen bij: 

SALASAN 


Kwaliteits-software voor Commodore 


Postbus 5570, 1007 AN Amsterdam, Giro 5641219 
Tel. 020-203219 
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Basicminiatuurtjes 

Een rubriek van Alex van Maarschalkerwaart 


Hier volgen een aantal miniatuurtjes die Toine Ermes uit 
Asten ons toezond. Let op, 3 van deze programma’s zijn 
in Simons Basic. 

Lo-Res Cirkel 

Het eerste programma vraagt om twee waardes in te voe¬ 
ren en tekent daarvan een Lo-Res Cirkel. 


10 input"{SHIFT CLR}hoogte{SPACE}( 

) "; h 

20 input"breedte{SPACE}( )";b 
30 print"{SHIFT CLR}":forom=0to2*step 
.05 

40 x=int(20+sin(om)*b) 

50 y=int(12-cos(om)*h) 

60 pokel024+X+40*y,160:next 
70 goto70 


Pyramide Freaks 

Het tweede programma dat Toine Ermes ons toestuurde 
heet Pyramide Freaks. Dit programa rekent de maten van 
een pyramide uit. 

10 input"{SHIFT CLR}hoogte{SPACE}pyra 
mide{SPACE}(in{SPACE}cm.)" ; hp 
20 basis=hp*1.57075:zijde=hp*1.4945 
30 print:print"4{SPACE}gelijkbenige{S 
PACE}driehoeken{SPACE}waarvan" 

40 print:print"de{SPACE}basis{SPACE}m 
oet{SPACE}zijnbasis;"cm." 

50 print"de{SPACE}beide{SPACE}zijden: 

{3xSPACE}zijde;"cm." 

60 getq$:ifq$=""then 60 
70 run 


3D Figuren 

Met het volgende programmaan Simons Basic) kan je zelf, 
door veschillende waardes in te voeren, 3d figuren ontwer¬ 
pen. 

10 input"{SHIFT CLR}getal{SPACE}a,b,c 
"; a, b, c 
20 HIRES0 ,3 
30 forx=0toastep5 
40 ARC160, 100, 0, 360, c, b, x, 1:next 
50 forx=0tobstep5 

60 ARC160, 100, 0, 160, c, x, a, 1: next 

61 f orx=0tocstep 5 

65 ARC160, 100, 0, 90,x,b, a,1:next 
70 getq$:ifq$=""then 70 
80 NRM:run 


Klein Kunst 

Het programma “Klein kunst” van Toine Ermes is ook in 
Simons Basic geschreven. Het is een soort Kaleidoscoop 
(zie woordeboek). 

10 HIRES0, 3:x=160:y=100:k=160:l=100 
20 fort=lto500:xl=x:yl=y:kl=k:11=1 
30 r=int(rnd(1)*8)+1 
40 ifr=lorr=3orr=5thenx=x+2 
50 ifr=3orr=6orr=7theny=y+2 
60 ifr=2orr=4orr=6thenx=x-2 
70 ifr=4orr=5orr=8theny=y-2 
80 ifx<160orx>310thenx=160 
90 ify<100ory>190theny=100 
100 k=160-int (x-160) :l=100-int(y-100) : z=l 
110 iftest(x,y) =lthenz=0 
120 linexl,yl,x,y,z:linekl,yl,k,y,z 
130 linekl,11,k,1,z:linexl,11,x,1,z 
140 next t 

150 getq$:ifq$=""thenl50 
160 run 


Kubus 

Het laatste programma dat Toine Erme ons toestuurde 
heet “Kubus”. Dit programma is in Simons Basic geschre¬ 
ven en tekent verschillende soorten Kubussen op het 
beeldscherm. 

10 HIRES0 ,3:f ort=ltol0 
2 0 a=int (rnd(1)*40)+10:b=int(a/2) 

30 x = int (rnd (l)*240)+l:y=int(rnd(1)*1 
10 ) +1 

40 RECx,y,a,a,1:xl=x+a:yl=y+a 
50 LINEx,y,x+b,y+b,l:LINEx+a,y,x+a+b,y+b, 

1 

60 LINEx,y+a,x+b,y+b+a,l:LINEx+a,y+a,x+a+ 
b,y+a+b,1 

70 RECx+b,y+b,a,a,1 
80 next 
90 PAUSE5:run 


Knipper 

Laurens van Klaveren uit Harderwijk zond ons het pro¬ 
gramma “Knipper” toe, het geeft een leuk effect. 

10 a=4 9151 

20 a=a + l:readb:ifb=-lthensys49152:pok 
e53280,l:poke646,l:printchr$(147): 
end 

30 pokea,b:goto20 

100 datal20,174,20,3,172,21,3,142,25,1 
92,140,26,192,162,27,160,192,142,2 
0,3,140 

110 data21,3,88,96,0,0 
12 0 datal73, 32,208,141,33,208,173,134, 
02,101,01,141,33,208 
140 datal08,25,192,-1 
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Spiegelen 

Dit programma is met recht een miniatuur, het werd ons 
toegezonden door Niels van Oosterrijk uit Hooglander¬ 
veen. 

10 inputx:fort=7to0step-l:q=7-t:a=(x 
=2 /s t) :x=x+a*2 A t:s = s-a*2''q:next:pri 
nt s 


Scroller 

Dit programma van Martin Vermaat uit Hengelo zorgt er¬ 
voor dat het beeld scrold. (SYS 59761 i en SYS 59765 T) 

10 pokel844+x,30:poke56116+x,l;a=int( 
rnd(l)*40):pokel064+a,8:sys59761:p 
rint"{2xCRSR-UP}" 

20 poke55376+a,0:get b$:ifb$="1"thenx 

=x-l 

30 ifb$="7"thenx=x+l 

40 if peek (1844+x) =81 then prinfscor 
e":end 

50 1=1+1:goto 10 


Geluid text 

Dit programma geeft een combinatie van tekst en geluid 
weer. Het is geschreven door Marnix van Asselt uit West- 
Terschelling. 

10 s=54272:poke s+24,15:pokes+5,0:pok 
e s+6,247 

20 priht"{SHIFT CLR}":poke 53281,0:po 
ke 53280,0:poke 646,1 
30 a$="commodore{SPACE}info" 

40 forx=14 to 1 step-1 
50 poke 214,ll:print 
60 b$=mid$(a$,x, 1) 

70 if b$="{ SPACE }"then nextx 
80 fory=ltol2+x:printtab(y)"{ CRSR-LEF 
T |{SPACE }";b$;:forz=lto8:nextz,y:g 
osub lOOrnextx 
90 goto90 

100 poke s+4,17:poke s,0:poke s+l,12:p 
oke s+4,16:return 


Afgrond 

Dit programma komt ook van Marnix van Asselt en is een 
kleine demo van een bal. 

10 s=54272:pokes+24,15:pokes+5,o:poke 
s+6,248 

20 print"{SHIFT CLR}" 

30 poke 214,17:print:print"{llxCOM Y} 

M":printtab(16)"{14xCOM Y}" 

40 fora=lto3 
50 readw,x,y,z 
60 forb=xtoy 

70 poke214,w+(b A 2)/4:poke211,b+z:prin 
t"{CRSR-LEFT}{SPACE}" 

80 poke214,w+(b A 2)/4:poke211,b+z:prin 


t"Q{SPACE}" 

85 ifz=27thennextb:gotol00 
90 nextb:gosubl60:nexta 
100 print"{CRSR-LEFT}{SPACE}" 

110 poke214,15:poke211,15:print"aaaarg 
hhh! ! ! " 

115 pokes+6,249 

120 fora=90to45 step-.4:pokes+4,17::po 
kes,0:pokes+l,a:pokes+4,16:next 
130 forg=ltol00:next 

140 pokes+13,25Q;pokes+8,2:pokes+ll,12 
9:pokes+11,128 
150 end 

160 pokes,0:pokes+l,12:pokes+4,17:poke 
s+4,16:return 

170 data 0,0,8,0,5,-6,7,15,i0,-4,7,27 
180 goto50 


Snake 

Bij dit programma (van Stevan Vijfwinkel uit Zwijndrecht) 
moet je er voor zorgen dat met slang tussen de punten 
stuurt. Het programma werkt met de joystick. 

10 poke5 3281, 0:poke532 80,0:print"{SHI 
FT CLR}{CTRL 6}" 

17Q for z=lto3 

180 printchr$(147):ti$="000000":q=1444 
:pokeq,81 

190 print"programmed{SPACE}by:t.g . t{SP 
ACE}en{SPACE}t.m.t{SPACE}on{SPACE} 

1-4-'89" 

200 pokeq,81:j=peek(56320) :j = 15-(j and 15) 

210 if j=4 then q=q-l:poke q,81:pokeq+ 

1, 32 

220 if j=8thenq=q+l:pokeq,81:pokeq-l,3 
2 

230 a=int(0+(39)*rnd(1)) 

240 printspc (a)"{CTRL 8}.{CTRL 6}" 

250 if peek(q+40)32 then280 
260 goto 200 

280 v=5 4 2 9 6:w=5 42 7 6:a=5 4 2 77 : h=542 73:1= 

54272 

290 for'x=15to0step-l’pokev,x:pokew,12 
9:pokea,15:pokeh,4 0:poke1, 20 0:next 
300 pokew,0:pokea,0 

320 printchr$(147)"{6xSPACE}u{SPACE}he 
eft{SPACE}het"int(ti/60)"seconden{ 

SPACE}volgehouden" 

330 print"{7xSPACE}press{SPACE}fire. . . 

340 ifpeek(56320)=lllthen360 

350 goto 340 

360 run 0 
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Veel lezers van ons blad sturen ons een briefje met daarin vragen omtrent de 1581 
van Commodore. Aangezien wij zeer gevoelig zijn voor dit soort vragen, omdat wij zelf 
ook graag weten wat er op de markt verkrijgbaar is en willen weten hoe dat dan werkt, 
komt hier ons verslag. 

De 1581 diskdrive 

H et beschrijven van een drive is niet iets wat je nu vaak zal tegenkomen. 

Maar omdat de 1581 een zeer populaire drive blijkt te zijn, lijkt een 
nadere bestudering op zijn plaats. Zeker gezien het feit dat dit momenteel 
de enige losse drive is die verkrijgbaar is voor de Cl 28. 



De veel bekendere Commodore 1571 Diskdrive 


Zoals we allemaal nog wel zullen we¬ 
ten, is er al een hele reeks van ver¬ 
schillende typen diskdrives van Com¬ 
modore verschenen. Een heel klein 
kastje waarin het loopwerk zit, en een 
aparte voeding, is het laatste model 
van Commodore. Doordat de voeding 
nu in een apart kastje zit zult u niet zo 
snel hitte problemen krijgen met de 
1581. Nee het is geen broodrooster 
en ook geen tosti-ijzer meer. We ken¬ 
nen allemaal de 1540 en 1541 toch 
nog wel. Geruime tijd later, met de in¬ 
troductie van de Commodore 128, 
kwamen daar de 1570 en 1571 mo¬ 
dellen bij. Ook in Amerika verscheen 
er een dubbele diskdrive, model 
1572. De gehele Commodore 128 
KERNAL is hiervoor ontwikkeld. Maar 
wij in Nederland hebben hiermee 
nooit te maken gehad. Dat wil zeg¬ 
gen, met het dubbele model van de 
1571. 

Commodore 64 en 128 

U kan met uw C-64 de 1570 en 1571 
best gebruiken. Maar hierdoor is er 
nog geen sprake van snelheidswinst. 
Die snelheidswinst is wel waarneem¬ 
baar bij de C-128, waar de drive ei¬ 
genlijk voor is ontworpen. Maar Com¬ 
modore wil de C-64 gebruiker blijk¬ 
baar ook van het grote data opslag 
voordeel laten profiteren. Helaas be¬ 
schikt de C-64 niet over de snelle se¬ 
riële bus die bij de C-128 voor de 
snelheidswinst zorgt. Maar een aantal 
handige personen wist hier wel weer 
een mouw aan te passen. Alleen jam¬ 
mer is het, dat met die aanpassing 
dan de diskdrive niet helemaal com¬ 
patible meer is. Zo klapt de software 
die met een disk-protectie wordt gele¬ 
verd, heel vaak op z’n gat. Geen be¬ 
ginnen aan en maar weer terug naar 
de langzame mode van de C-64, te¬ 
rug naar af. Of bent u daar niet zo weg 
van en gaat u op zoek naar personen 


die voor u de disk-protectie verwijde¬ 
ren. Tja, daar worden wij dus even stil 
van. Deze personen zult u straks nog 
wel eens nodig kunnen hebben. Er is 
bijna nog geen software verkrijgbaar 
die direct zonder problemen met deze 
diskdrive wil samenwerken. Dat wil 
zeggen, de beschermde software met 
de zogenaamde disk-protectie. Ook 
GEOS werkt met behulp van de 1581 
perfect, alleen is de opstart-disk niet 
op dit formaat verkrijgbaar. En het kan 
misschien ook nog wel even duren 
voordat daar verandering in komt. Tot 
die tijd zult u met de oude vertrouwde 
1570 of 1571 GEOS moeten opstar¬ 
ten. Maar het wegschrijven van uw 
data gaat met GEOS prima richting 
1581; En dat is tenminste iets. Zo wil 
Superbase helaas niet zijn data op de 
3.5 inch diskette van de 1581 weg¬ 
schrijven. Superbase laat het afweten 
wegens het niet kunnen samenwer¬ 
ken met de nieuwe DOS van de 1581. 
Over het hoe en waarom moeten wij 


u op dit ogenblik helaas het antwoord 
echter nog schuldig blijven. Dat gaat 
natuurlijk ook geen eeuwen meer du¬ 
ren. U krijgt in ieder geval de melding 
70, No Channel, op uw beeldscherm 
te zien. Ook al zijn er Channels vol¬ 
doende beschikbaar, Superbase ver¬ 
rekt het gewoonweg. Hoogstwaar¬ 
schijnlijk gebruikt Superbase een 
channel dat niet meer, of nu voor an¬ 
dere doelen wordt gebruikt. En laten 
we eerlijk zijn, leuk is het in ieder ge¬ 
val niet. Mocht u zelf de oplossing 
hebben gevonden, klim dan direct in 
de pen. U weet niet half hoeveel per¬ 
sonen om de juiste oplossing zitten te 
springen. Deze eer is dus aan de wel¬ 
willende INFO-lezer! Dus voor de 
door u zelf geschreven software moet 
het al helemaal geen probleem zijn 
om op disk te kunnen lezen of schrij¬ 
ven. Uw software gaat vaak toch niet 
zo diep het DOS in als bij de grote fir¬ 
ma’s het geval is; En die doen dit ook 
alleen om er voor te proberen te zor- 
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gen dat u de diskette niet kunt kopië¬ 
ren. Lukt u het wel dan heeft u geluk. 
De gewone save en load comman¬ 
do’s werken dus prima met de 1581 
samen. Maar dieper het DOS in gaan 
zal problemen met zich kunnen mee¬ 
brengen. 


De interne techniek 

Dat de 1581 technisch geheel vol¬ 
gens een nieuw concept is ontwikkeld 
kunt u natuurlijk wel op uw vingers na¬ 
tellen. In plaats van de O zo veel ge¬ 
bruikte 5.25 inch diskette wordt er nu 
van een 3.5 inch diskette gebruik ge¬ 
maakt. Dat is dus al voordeel nummer 
een. Waarom? Omdat op dit soort dis¬ 
kettes veel meer data opslag mogelijk 
is. En daar draait het bij diskettes toch 
allemaal om. Konden we eerst met 
behulp van de 1571 340 Kilo byte 
data kwijt, nu kunnen we 800 Kilo 
byte op de 3.5 inch diskette van de 
1581 wegschrijven. Iets meer dan u 
tot op heden met uw oude vertrouwde 
1541 of 1571 gewend was. In totaal 
kunt u nu dus zo’n slordige 460 Kilo 
byte meer op diskette kwijt. De 1571 
kost ongeveer zo’n ƒ 700,= en dat 
kost een 1581 ook ongeveer. Gezien 
het grote opslag-voordeei is de prijs 
dus ook gunstig te noemen. Maar om¬ 
dat de 3.5 inch diskettes ook duurder 
zijn, moet u dus niet al te vroeg gaan 
zitten juichen. Dat doen de diskette 
verkopers wel voor u, zullen we maar 
zeggen. Ook is dit maar een grapje, 
natuurlijk, want dan is de aanschaf 
voor de dealer, niet te verwarren 
met..., ook een stuk duurder en op 
deze manier valt zijn winst dan ook 


weer tegen. Eén ding is zeker, de 3.5 
inch diskettes zijn een stuk beter te¬ 
gen het ’per ongeluk’ verkeerd vast¬ 
pakken beschermd. Lekkere vette 
vingers kunnen nu gelukkig een stuk 
minder snel voor data-verlies zorgen. 
Oké, het is nog mogelijk, maar dan 


heeft u wel hele vreemde kapriolen 
moeten uithalen. Om te voorkomen 
dat u al weer ’per-ongeluk’ een disket¬ 
te gaat formatteren, is ook iets heel 
handigs uitgevonden. Nee, niet door 
Commodore maar door de diskette fa¬ 
brikanten. Nu is het geen sticker-rom- 
mel meer, die het perongeluk format¬ 
teren moet tegen gaan, maar een 
heel handig plastic schuifje. Handig 
als wat, maar dan zult u wel even 
goed moeten opletten bij het bewer¬ 
ken van het schuifje. Bij de 5.25 inch 
diskette kon u het uitgeknipte gedeel¬ 
te van de diskette afplakken, en klaar 
is Kees. Maar nu werkt dat precies 
andersom. Schuifje dicht is 'schrijven 
maar’, en schuifje open is 'schrijven 
vergeten maar’. Tja opletten dus en 
niet per ongeluk de boel in de war 
schoppen met bijvoorbeeld de header 
(formatteer)-opdracht. 

Programmeren 

Heel handig, denken sommige men¬ 
sen, op diskettes te kunnen besparen 
door geen dubbele, maar enkelzijdige 
diskettes te kopen. Vaak gaat het 
goed, maar eens gaat het fout. Wij ge¬ 
ven onze software in ieder geval niet 
de kans om op die manier te verdwij¬ 
nen. Geen sprake van! O.k., het kost 
wel meer geld maar daar is de kwali¬ 


teit dan ook naar. Wij moeten er dus 
niet aan denken het vele 'bloed zweet 
en tranen’ in rook te moeten zien op¬ 
gaan. Nee wij kijken wel lekker uit, u 
gaat u gang maar. U weet het, ‘Een 
gewaarschuwd mens telt voor twee’. 
Het zal dus ook niet aan de verkeerde 
voorlichting kunnen liggen. U heeft 
geen geld! Tja, dat is jammer maar 
ook daar hebben wij een goed ant¬ 
woord op. Een beperkt antwoord we¬ 
liswaar, maar toch. Kruip achter de 
computer en programmeer er op los. 
Maak er wat van en dan kunt u ook 
nog eens wat bijverdienen! En daar 
schaft u dan gewoon uw computer- 
spullen van aan. En vergeet het niet, 
opsturen naar COMMODORE INFO 
die hele hap. Wij helpen u, u helpt 
ons. Ietwat filosofisch misschien, 
maar op die manier blijft onze dobber 
ook lekker boven water. En wordt de 
dobber zwaarder, dan geeft u er ge¬ 
woon weer een ruk aan! U bent dege¬ 
ne die de programmeerteugels in de 
hand heeft, niet wij. Kortom, wij zien 
uw werk wel verschijnen. Maar goed 
terug naar waar wij gebleven waren. 
De 15XX drives hadden ’maar’ 2Kb 
intern RAM terbeschikking. En daar¬ 
mee kon niet een gehele track worden 
opgeslagen in RAM. Maar nu wel om¬ 
dat er 6Kb RAM is bijgekomen. Sa¬ 
men wordt dat dus 8Kb RAM geheu¬ 
gen voor de 1581. Met een heel han¬ 
dige routine die Track Cache Buffer 
Loader’ heet, wordt het RAM met de 
data van de disk volgepropt. Op deze 
manier gaat er nu een hele track met 
data richting Cache-buffer. Eerst 
moest u die sector van diskette inle¬ 
zen, maar nu wordt die data uit het 
interne RAM opgehaald. Vandaar dat 
de 1581 ook iets sneller werkt. Jam¬ 
mer genoeg is dit maar ongeveer 
10%, maar alles is mooi meegeno¬ 
men. De remmende faktor is dus nog 
steeds de seriële bus van Commodo¬ 
re. Maar door deze truc is het data op¬ 
halen wel mooi iets sneller geworden. 
Dit komt doordat RAM to RAM copy’s 
veel sneller zijn, omdat niet eerst de 
disk zijn diverse electronica-besturin- 
gen behoeft te activeren. Dus geen 
motor aansturen, die de lees/schrijf¬ 
kop heen en weer stuurt, en dat soort 
dingen meer. 

Stappenmotor 

Ook zijn enige komponenten vervan¬ 
gen door andere typen componenten. 
Zo is de 6522 vervangen door een 
8520. Een hele dure jongen die ook in 
de Amiga voorkomt. Eén keer de prin¬ 
ter aansluiten bij de Amiga, is vaak al 
voldoende om dit IC om zeep te hel¬ 
pen. En dat moest natuurlijk wel, om- 
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dat de logische schakelingen in de 
diskdrive geheel ander werk moeten 
verrichten. De stappenmotor, de mo¬ 
tor die de bewegingen van de 
lees/schrijfkop regelt, moet nu bij¬ 
voorbeeld ook naar track 80 kunnen 
springen. De in de 1570 en 1571 ge¬ 
bruikte WD 177X doet nu tenminste 
wat hij moet doen. De in de 1570 en 
1571 gebruikte controller van Wes¬ 
tern Digital bestuurde de stappenmo¬ 
tor niet. Nu is dat wel het geval en 
vandaar dat dit ook een stuk sneller 
gebeurt. De signalen voor write-pro- 
tect en track 0 detectie stonden ook 
op deze controller om te voorkomen 
dat er per ongeluk op een disk wordt 
geschreven die afgeplakt, en dus be¬ 
veiligd zou moeten zijn. Zo kan een 
diskcommando als COLLECT wat ge¬ 
woonlijk uren schijnt te duren, nu in 
enkele seconden zijn werk verrichten 
op de 3.5 inch diskette van de 1581. 
Ook hier weer winst in snelheid. 

Massa opslag 

En wij vonden het al een hele verade¬ 
ming. 340Kb opslag met een 1571 
was al een hele verbetering ten op¬ 
zichte van de 1541 en 1570 van Com¬ 
modore. Maar nu kunt u geen 1328 
blokken maar liefst 3160 blokken 
wegschrijven naar disk. Dat is dus 2.4 


keer zoveel als op een 1571 kan wor¬ 
den weggeschreven. Met zo’n grote 
opslagcapaciteit zult u meer files 
wegschrijven dan op een normale 
5.25 schijf. Op de 3.5 inch schijf is het 
dan ook mogelijk om inplaats van 144 
files, 296 files weg te kunnen schrij¬ 
ven. Dit is dan dus een winst van 152 
files. En wat dacht u van een SUBDI- 
RECTORY op disk? Ja, dat is met 
zo’n 1581 ook mogelijk geworden. 
O.k., zo’n sub-directory slikt wel even 
40 blokken opslag voor de BAM, 
Block Availability Map. Elke directory 
neemt dus 40 blokken in beslag voor 
zijn directory en BAM. In de directory 
staan de wijzers naar de files die u 
eventueel op disk heeft staan. Ook 
staat daar het type file enz. Met ande¬ 
re woorden, wanneer u een sub-direc- 
tory aanmaakt van 200 blokken, dan 
mist u er geen 200 maar 240! Een 
kwestie van in het achterhoofd hou¬ 
den. De hoofd directory wordt ROOT 
directory genoemd. Om naar een an¬ 
dere directory te kunnen overswit¬ 
chen zult u wel eerst naar de ROOT 
terug moeten. Vanuit de ROOT kunt u 
dan naar een bestaande sub-directo- 
ry overswitsen. Met behulp van zulke 
sub-directory's wordt het werken op 
disk een stuk moeilijker dan u mis¬ 
schien wel denkt. Er zijn vrij ingewik¬ 
kelde opdrachten voor nodig om een 


sub-directory te kunnen aanmaken. U 
kunt dit zien in het door Henk-Johan 
van Rantwijk gemaakte programma, 
dat u in dit nummer kunt vinden. Wie 
zo’n 1581 eenmaal heeft zal daar in 
ieder geval veel plezier van kunnen 
hebben. Ook heeft hij een soort 
WORKBENCH geschreven voor deze 
diskdrive, die wij later ook zullen pu¬ 
bliceren in de INFO. 

Conclusie 

Tot slot kunnen we de lezer er op at¬ 
tenderen dat wij zeer te spreken zijn 
over de 1581, zeker gezien het feit dat 
er nu met sub-directory’s gewerkt kan 
worden. Ook de massale data opslag 
is gewoonweg een verademing. De 
bijgeleverde demo-diskette is zeker 
voor in het begin heel handig. Als ad¬ 
vies aan de aspirant koper moeten we 
dit nog een keer kwijt: koop alleen 
dubbel-zijdige diskette’s voor deze 
diskdrive. De verkoop prijs van zo’n 
ƒ 700,= is, zeker gezien de mechani¬ 
sche en electronische afwerking, niet 
te duur. Zelf vinden wij het voor een 
hobby drive wel wat te duur. Wij ho¬ 
pen dat u de 1581 bij uw hardware le¬ 
verancier kunt verkrijgen. Zeker is dat 
u wel even moet zoeken, voordat u de 
1581 kunt aanschaffen. 



Zelfs de beste computer kan problemen geven. 
Ook de uwe. U heeft alles al geprobeerd. 

Niets hielp. 


Als het opereren wordt..., 


gaat u naar ESCON. 

Wij staan on-line met de fabrikant en zijn het 
enige GEAUTORISEERDE SERVICE-CENTER 
Onder service verstaan wij het verhelpen en 
opheffen van storingen en het in optimale con¬ 
ditie houden van uw computer. 

Daarvoor staat een degelijk 
opgeleid service-team 
klaar. 

Wij kunnen u op de volgende manieren helpen: 

• Reparatie in ons service¬ 
centrum waarbij u uw computer 
zelf kunt brengen en halen of, 

• U belt ons en we komen uw PC halen en 
brengen deze na reparatie weer terug 

• Indien u erg veel haast heeft kunt u na telefo¬ 
nische afspraak langskomen en op reparatie 
wachten* 

Wij repareren praktisch alle DOS computers, 
daarnaast zijn wij ook specialist in de volledige 
productlijn van COMMODORE. Zowel voor 
C-64, Cl28 (D). AMIGA 500/2000en de PC-lijn 
vanaf PC-10 t/m PC-60. Naast de computers 
bieden wij tevens service op alle gangbare 
randapparatuur 


Wat zijn de voordelen van 
ESCON service? 

U betaalt vaste reparatieta- 
rieven voor alle produkten 
en heeft op deze repara¬ 
ties drie maanden garan¬ 
tie. Dit geldt ook voor 
de door ons geleverde 
originele onderdelen. 

Bij reparaties boven de 
fl. 150 krijgt u automatisch 
een prijsopgave van de 
ratiekosten. 

Voor meer informatie over 
reparaties kunt u ons bellen 
en bent u welkom op; 


ESCON BV Antoniuslaan 
3341 GA H.I. Ambacht 
Telefoon: 01858-19922, 
Telefax: 01858-19682. 


Hierucin zijn extru kosten verbonden 
* Of) deze c< >mpuiers verlenen wij voor¬ 
del ige se rvicc-d bon ne me n ten 


ELECTRONIC SERVICE CONTRAOTORS 


-Hèt recept voor gezonde service 
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De populaire GEOS vraag- en antwoord-rubriek. 

GEOS-INFO . 


Alweer een printerprobleem 

De heer van Elten uit Ede kan zijn 
printer, een Commodore 1525, niet 
aan de praat krijgen met de GEOS 1.3 
versie. Zoals reeds in vorige afleve¬ 
ringen van deze rubriek is beschre¬ 
ven, dient u in zo’n geval een andere 
printer-driver te proberen. Vaak wor¬ 
den de oorspronkelijke printermoge¬ 
lijkheden aangestuurd door een an¬ 
dere printerdriver. In dit geval dient u 
de printer-driver MPS 801 te gebrui¬ 
ken. 

Plaatjes in GeoWrite 

Uit Leidschendam ontvingen wij een 
brief van dhr. van Loon, met de vraag 
waarom een tekening, die uit twee de¬ 
len bestaat niet precies op elkaar te 
passen is. Hij heeft namelijk een 
kruiswoordpuzzle in GeoPaint gete¬ 
kend, welke bestaat uit twee delen, 
en vervolgens naar de foto-manager 
gecopieerd. Daarna heeft dhr. van 
Loon de twee plaatjes in een GeoWri¬ 
te document ingelezen, in de hoop dat 
deze precies boven elkaar geplakt 
konden worden. Dit is niet gelukt. In 
de GEOS 2.0 versie is het mogelijk 
om plaatjes tot op de pixel nauwkeu¬ 
rig op elkaar aan te laten sluiten. In dit 
specifieke geval is het misschien ver¬ 
standiger om de tekening gewoon in 
GeoPaint te laten staan en de tekst 
vanuit GeoWrite, door tussenkomst 
van de text-manager, te copiëren 
naar hetzelfde GeoPaint document. 
Bij gebruik van de 1.3 versie van 
GEOS is het niet mogelijk om een te¬ 
kening, anders dan in het midden van 
de pagina, te positioneren. Tevens is 
het niet mogelijk om tekst naast een 
tekening in te voeren. De versie 2.0 
kent deze mogelijkheden echter wel. 
In beide versies is het onmogelijk om 
een hele pagina uit GeoPaint in een 
foto-album te plaatsen, alleen teke¬ 
ningen welke maximaal de grootte 
van het tekenvenster hebben kunnen 
hierin geplaatst worden. 

Positief en wederom de REU. 

Van de heren Joost en Frans Halen¬ 
beek uit Zeist ontvingen we een nutti¬ 
ge recatie op het probleem betreffen¬ 
de de aanschaf van de REU (Ram 


Expansie Unit). Ze waren zelf inmid¬ 
dels tot de ontdekking gekomen dat 
een dergelijke REU in Nederland niet 
of nauwelijks verkrijgbaar is. Zijzelf 
hebben hun REU (1764) uit Duistland 
gehaald. Hierbij worden plaatsen als 
Essen, DÜsseldorf of Aken genoemd, 
waarbij in de zaken als Quelle of 
Kaufhoff de drie gangbare modellen 
verkrijgbaar zijn. De 1764 komt dan 
op DM 299,00 en de 1750 op DM 
199,00. Verder weten ze nog te mel¬ 
den dat de Font-editor uit het boek 
“GEOS Tips & Trucs” van Data-Be- 
cker alleen werkt met de versie 1.2 
van GEOS. Zij adviseren dan ook om 
FontPack Plus aan te schaffen en zo¬ 
doende gelijktijdig in het bezit te ko¬ 
men van de GEOS Font-Editor. Har¬ 
telijk dank voor jullie positieve bijdra¬ 
ge. 



Vliegende pointer 

Het aanwijspijltje (pointer) van de 
GEOS 1.3 van de dhr. G.Z. Kamerling 
uit 2e Exloërmond vliegt steeds naar 
de rechterkant van het scherm. Bij 
een kennis van hem doet zijn GEOS 
dit echter niet. Vreemd genoeg dus. 
Als het pakket op de ene computer 
goed functioneert, zal het naar alle 
waarschijnlijkheid toch aan uw appa¬ 
ratuur liggen. Misschien is uw joystick 
niet geheel in orde. Voor ons is uw 
probleem echter een raadsel, waar 
we geen pasklare opslossing voor 
hebben. 

GEOS en de MPS 1230 

Het probleem dat dhr. F.J. de Weger 
heeft met zijn nieuwe Commodore 



MPS 1230 printer en GEOS 2.0 ligt 
waarschijnlijk in het feit dat deze prin¬ 
ter betrekkelijk nieuw is. Berkeley 
Softworks heeft de GEOS 2.0 versie 
al in juli van het vorige jaar gecomple¬ 
teerd en was kennelijk niet in staat op 
de nieuwste ontwikkelingen op de 
hardware markt in te spelen. Het prin¬ 
ten in NLQ mode met GEOS zal voor 
u betekenen dat u de dipswitch instel¬ 
ling aan moet passen. Op uw vraag of 
het mogelijk de DATE functie, bij ge¬ 
bruik van headers en footers, in het 
Nederlands te laten afdrukken, moet 
ik u helaas teleurstellen. GEOS is en 
blijft een Amerikaans produkt en zo¬ 
als u wellicht weet werken de Ameri¬ 
kanen met een omgekeerd datum- 
stelsel. Misschien als er nog eens een 
Nederlandse versie van GEOS 2.0 op 
de markt komt, dat dit probleem dan 
tot het verleden hoort. 

Alweer printerproblemen... 

Al enkele malen eerder hebben wij 
gemeld dat het haast ondoenlijk is om 
specifieke printerproblemen, welke 
voortvloeien uit niet al te gebruikelijke 
hardware samenstellingen, op te los¬ 
sen. Dit geldt dus ook voor de heren 
Bockx uit Kessel (België) en Th. Neve 
uit Kloosterzande. De minste proble¬ 
men heeft u wanneer u een in de 
handleiding beschreven configuratie 
gebruikt. In het laatste geval wordt 
ook nog eens een diskdrive (OC-118 
N) gebruikt, hetgeen onherroepelijk 
tot problemen kan leiden. Helaas kun¬ 
nen we hiervoor geen oplossing aan¬ 
dragen. 

GEOS gebruikersgroep 

Laatst ontvingen we uitdraai van ie¬ 
mand, bestaande uit zo’n slordige 8 
pagina’s. Op elke pagina stond wel 
een vraag, die verwees naar de afge¬ 
drukte tekst. U zult begrijpen dat het 
niet doenlijk is om op zulke uitgebrei¬ 
de problemen in te gaan. Dit soort 
problemen horen meer thuis bij een 
gebruikersclub. Sinds kort kennen we 
in Nederland zo’n club, die is geves¬ 
tigd in Almere. De Geos Gebruikers 
Groep, telefoon 03240-10041. Hier 
kunt u met al uw terecht voor uw aan¬ 
loopproblemen en gebruikersvragen. 
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Zoals in de laatste aflevering van deze cursus (nr. 2/’89) werd beloofd, krijgt U deze 
maand de listing van “harcopy.prg”, een programma waarmee beeldschermuitdraaien 
van GEOS kunt maken. Aangezien in dit programma vrij moeilijke machinetaaltech- 
nieken aan de orde komen, zal Peter Boncz deze keer ook enige uitleg aan pure 
machinetaal wijden. 


GEOS-machinetaal (5) 


Hardcopies maken 


D e printerdrivertechniek, waarover de vorige aflevering van deze serie 
ging, zal in de listing van deze keer gebruikt worden. Om het geheugen 
nog eens op te frissen: vorige keer werd het programmaatje “hardcopy” 
gelist. Deze keer krijgt U “hardcopy.prg” dat daarmee samenwerkt. Het 
programma van vorige keer is altijd hetgene dat U opstart als U een hard¬ 
copy wilt maken. Het scherm wordt dan wit, dit betekent dat als U op 
CTRL-H drukt, de hardcopy uit de printer zal komen rollen. De applicatie 
waaruit “hardcopy” opgestart werd, loopt tussen dat moment en het indruk¬ 
ken van de CTRL-H, nog gewoon door. 


Pas op het moment dat op CTRL-H 
gedrukt wordt, zal het programma 
waarin de echte print-techniek ver¬ 
werkt zit van de disk worden gehaald: 
“hardcopy.prg”. Let dus wel op dat 
BEIDE programma’s altijd op disk 
staan. 

Het programma “harcopy.prg” print 
hardcopies die zowel in de breedte 
als in de hoogte verdubbeld zijn. Hier¬ 
om is het ook nodig, dat de hardcopy 
op z’n kant uitgeprint wordt. Anders 
zou hij immers te breed worden voor 
sommige printers. Kromme printers 
als de Brother HR5 en de MPS 801, 
die maar 480 puntjes in de breedte 
hebben (i.p.v. 640), kunnen nu met 
het programma werken. De afmetin¬ 
gen van de hardcopy nu zijn immers 
2x200 (breedte) bij 2*320 (lengte). 

Dit kantelen en verdubbelen betekent 
wel dat er nogal wat gerekend zal 
moeten worden, en dat in machine¬ 
taal. De C-64 heeft al zo weinig ma- 
chinetaalinstructies, dat men hem wel 
grappend de eerste Reduced Instruc- 
tion Set Code (RISC) machine noemt. 
In dit soort gevallen is dat niet RISC, 
maar gewoon CRISis. Vermenigvuldi¬ 
gen zal bijvoorbeeld met zogenaam¬ 
de schuifoperaties in combinatie met 
optelinstructies moeten gebeuren. 
Voorbeeldje: vermenigvuldigen met 9 
wordt dan opgesplitst in driemaal met 
2 vermenigvuldigen en eenmaal op¬ 
tellen. (2*2*2+1=9). 



Algemene machineopbouw 

Hoewel een groot gedeelte van wat ik 
nu ga bespreken eigenlijk in deze se¬ 
rie bekend verondersteld wordt, zal ik 
vanwege de moeilijkheidsgraad van 
het hardcopyprogramma toch bij het 
begin beginnen. Het hart van de com¬ 
puter wordt gevormd door de CPU, 
grofweg aan te duiden met 'proces¬ 
sor’. In het geval van de C-64 is dat 
de 6502 chip. Een zogenaamde bus 
verbindt deze CPU met zaken als het 
geheugen, het beeldscherm, het toet¬ 
senbord, diskdrives en printers. De 
CPU is het hart van de computer, dat 
zich constant bezighoudt met het uit 
het geheugen halen van instructies 
om die vervolgens uit te voeren. De 
CPU van de C-64 heeft 3 registers: 
a,x en y. Registers zijn interne varia¬ 


belen in de processor, die veelvuldig 
gebruikt worden, en noodzakelijk zijn 
voor het programmeren. Al deze drie 
registers hebben de grootte van 1 
byte in de C-64. Andere -modernere- 
processors hebben veel meer regis¬ 
ters, de MC 68000 heeft er bijvoor¬ 
beeld 16, en dan nog van 32 i.p.v. 8 
bits. Naast de 3 algemene registers 
heeft de C-64 een aantal statusbits. 
Statusbits bevatten een 1 of een nul, 
ofwel ze zijn 'gezet’ of niet. Er is bij¬ 
voorbeeld een N statusbit, dat gezet 
wordt door de processor als een re¬ 
gister een negatieve waarde krijgt. Er 
is een Z statusbit, dat gezet is als bij 
een vergelijking (cmp/cpx/cpy) gelijk 
wordt geconstateerd. Tevens is er het 
zogenaamde Carrybit, dat aanstaat 
als een register de waarde 255 over¬ 
stijgt. 
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Schuifoperaties 

Dit Carrybit speelt een belangrijke rol 
in de twee schuifinstructies die in de 
listing gebruikt worden. Deze twee 
zijn ASL en ROL, ofwel Arithmetic 
Shift Left, en ROtation Left. In sche¬ 
ma 1 vindt U een overzicht van beide 
schuifoperaties. Zoals de naam al 
veronderstelt, schuiven ze beide de 
bits naar links in een byte. Verder 
wordt bij allebei de inhoud van de 
vroegere zevende bit (een byte heeft 
8 bits: bit 0 tot 7) in de Carry (aange¬ 
duid met C) geplaatst. Het verschil 
tussen de twee schuifoperaties zit in 
de waarde van de nieuwe 0-de bit. Bij 
ASL wordt deze 0-de bit altijd leeg, bij 
ROL krijgt de 0-de bit de vroegere 
waarde van de Carry. 

ASL 

Het effect van ASL is een zuivere ver¬ 
menigvuldiging met twee. Als op een 
byte met waarde 1 (dus de nul-de bit 
aan, de andere bits uit) ASL wordt los¬ 
gelaten, dan is het resultaat een byte 
met waarde 2 (de eerste bit aan, en 
de rest uit). De Carry is nul, want dit 
is de waarde van de (vroegere) ze¬ 
vende bit. Maar wat is er nu precies 
aan de hand als de Carry na afloop 
wel aan is? Daarvoor bekijken we het 
geval van een byte met bit zeven aan, 
dus waarde 128. Na ASL zijn alle bits 
uit, en bit 7 is in de carry geschoven. 
De waarde van de byte is dus nul ge¬ 
worden, terwijl hij eigenlijk 256 had 
moeten zijn. Het is dus duidelijk dat 
de Carry aangeeft of er OVERFLOW 
is opgetreden. Het getal is te groot ge¬ 
worden voor een byte, en zou dus ei¬ 
genlijk in twee bytes moeten staan. 

ROL 

Voor het verdubbellen van getallen 
die in twee bytes staan opgeslagen 
(een Low- en een High-Byte) volge 
men dan het volgende recept: bewerk 
de LowByte met een ASL. De LowBy- 
te is dan verdubbeld, en als er over¬ 
flow was, dan is de Carry 1, anders is 
de Carry 0. Vervolgens wordt de Hig- 
Byte geROLd. De HighByte wordt dan 
ook verdubbeld, en de Carry wordt in 
de 0-de bit geplaatst. Het uiteindelijke 
effect is een kloppende verdubbeling, 
want in geval van overflow van de 
LowByte wordt dit gecompenseerd, 
doordat de HighByte een extra hoger 
wordt. 

Optellen en aftrekken 

Optellen gaat vrij gemakkelijk op de 
C-64. Daarvoor is de instructie ADC 


bestemd. Deze heeft het volgende ef¬ 
fect: 

Accu := Accu + Waarde Adres + Carry 
(":=" betekent “wordt”) 

Wil men bijvoorbeeld bij waarde van 
adres $1000 tien (hex. $0a) optellen, 
dan moet dat zo gebeuren: 

clc ; Carry := 0 

lda #$0a ; Accu := 10 

adc $1000 ; Accu := 10 + 

waarde $1000 + 0 
sta $1000 ; $1000 := Accu 

En na afloop bevat de Carry een 1 als 
er overflow is opgetreden, en een nul 
als de optelling bij elkaar minder dan 
256 was. Parallel hieraan ligt de in¬ 
structie SBC, met de volgende func¬ 
tie: 

Accu := Accu - Waarde Adres - Carry. 


Hardcopy 

Aangezien de hardcopy verdubbeld- 
gekanteld op de printer moet en prin¬ 
ters nu eenmaal per horizontale rij 
van 8 hoog printen, zal het program¬ 
ma steeds een vertiacle rij van 4 bits 
breed uit het scherm moeten nemen. 
Dit zal 80 keer moeten gebeuren, 
want het scherm is 80x4=320 puntjes 
breed. Deze lus van 80 maal heet in 
de listing “BeginHorLus” (lussen wor¬ 
den voor de duidelijkheid ingespron¬ 
gen weergegeven). U zult ook kunnen 
zien aan “cmp 80" dat deze inderdaad 
80 maal wordt uitgevoerd. Wat er met 
zo’n rij van 4 breed (en 200 bits hoog) 
precies gebeurt, daar zorgt de proce¬ 
dure "FillBuffer" voor. Overigens, als 
Uw printer geen 8 puntjes hoge regels 
print, maar minder of misschien wel 
meer, dan zorgt de printerdriver er¬ 
voor dat dit gecamoufleerd wordt. Als 
programmamaker kunt U op dit punt 
dus gerust Uw verstand op nul zetten. 


FillBuffer 

De horizontale rij van 80 naast elkaar 
liggende CARDS (blokjes van 8x8) 
die FillBuffer op een of andere manier 
uit de rij van 4 breed zal moeten des¬ 
tilleren, wordt per CARD bepaalt. Uit¬ 
eindelijk zal FillBuffer echter niet 80 
CARDS, maar slechts 50 moeten ma¬ 
ken. De andere 30 zijn gewoon leeg. 
(dit komt omdat het scherm oorspron- 
kijk 200 bits hoog is, gekanteld en ver¬ 
dubbeld worden dit dus 400 bits 
breed, en dat zijn precies die 50 blok¬ 
jes van 8 breed) 

De vertikale rij wordt dus gesplitst in 
50 blokjes van 4 bij 4. De procedure 
“Haalvierbijvier” kantelt zo’n blokje en 
maakt er 8 bytes van (lengte- en 
breedteverdubbeling). Deze proce¬ 
dure is natuurlijk vrij bewerkelijk, en is 


dan ook veruit de langste van het pro¬ 
gramma. De procedure “StroreAcht- 
NieuweBytes” zet de gevonden acht 
bytes in de buffer. 

HaalVierbijVier 

In deze procedures hebben de 
GEOS-variabelen alL ($a2) en alH 
($a3) respectievelijk de functie van 
horizontale en vertikale teller binnen 
een blokje van vier bij vier. Per waar¬ 
de van al L wordt er naar de onder el¬ 
kaar liggen bits in het blokje van vier 
bij vier gekeken. De vertikale teller 
al H wordt dan dus gevarieerd (van 0 
naar 3). Uit deze onder elkaar liggen¬ 
de punten wordt een byte gemaakt. 
Aangezien in een byte (bij HIRES) de 
bits NAAST elkaar ligen, is er hier 
sprake van kanteling. Maar hoe gaat 
dat nu precies? Uitgegaan wordt van 
een lege byte. Steeds als een puntje 
in de minibyte, zeg het N-de, aan is, 
dan moeten in de resultaatbyte 2 pun¬ 
ten aangezet worden: de 2*N-de en 


\ \ 
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de (2*N +1)-de. Dit geeft een breedte- 
verdubbelling. De lengteverdubbel- 
ling is veel eenvoudiger, twee opeen¬ 
volgende resultaatbytes zijn gewoon 
steeds hetzelfde. 

TestPoint 

Om te kijken of een puntje in het blok¬ 
je van 4x4 aan is, wordt gebruik ge¬ 
maakt van de GEOS-routine Test¬ 
Point. Deze routine ($c13f) heeft als 
input de X-coordinaat in register r3 
($0008/$0009) en de Y coördinaat in 
rlIL ($0018). Als het puntje aan is, 
dan is de Carry 1, anders is de Carry 
0. Als U de Listing goed leest, dan zult 
U zien dat rl 1L := 4*VertLus + alH. 
(VertLus loopt van 0 tot 50 en geeft 
aan in welk blokje van een vertikale rij 
men zit). Aangezien het om blokjes 
van 4x4 gaat geeft 4*VertLus +a1H 
(de verticale teller binnen zo’n blokje) 
precies het totale aantal puntjes in 
verticale richting, ook wel bekend als 
Y- coördinaat. Deze berekening ge¬ 
beurt vlak na het label “TweedeLus:". 
Zo ook was al eerder (ongeveer 10 re¬ 
gels onder “EersteLus:”) berekend 
dat a3 = 4*HorLus +a1L Horlus is 
daarin de variabele die aangeeft met 
welke rij van 4 breed bij 200 hoog 
men bezig is. U ruikt het al, a3 is de 
X-coordinaat. Later wordt dan a3 in r3 
gezet. Dan zijn zowel r3 als rl 1L met 
de juiste waarden gevuld, zodat er 
naar TestPoint gesprongen kan wor¬ 
den. 

GeoProgrammer 

Zoals ik al zei: rekenen in machine¬ 
taal is niet bijster leuk. Maar ook als U 
het niet helemaal volgen kon, dan 
heeft u nog altijd de LISTING, en dat 
is ook niet niks. Hij bestaat uit drie de¬ 
len (die altijd nodig zijn in de GeoPro¬ 
grammer): de listing (hardprgLst) en 
de header (hardprgHdr) voor de Ge- 
oAssembler, en hardprg.ink voor de 
GeoLinker. De volhouders zonder 
GeoProgrammer zullen het deze keer 
erg moeilijk hebben. Ik raad hun dan 
ook van ganser harte aan om het pro¬ 
gramma maar bij een kennis die wel 
een GeoProgrammer heeft in te tik¬ 
ken. Niettemin, voor de onverschrok- 
kennen heb ik de volgende aanwijzin¬ 
gen: maak gebruik van de ongewijzig¬ 
de GEOS- PROGRAM MAKER. Het 
maakt niet uit waar er geassembleerd 
wordt, als dit maar in het gebied tus¬ 
sen $2000 en $5fff ligt. In de listing 
komen de symbolen “[” en “]” voor, 
deze staan respectievelijk voor Low- 
Byte en HighByte. 

Peter Boncz 


Listing 1. 


? hardprgLst 



.include 

geosSym 


LoadW r2, ^$01 

.include 

geosMac 


jsr PrintBuffer 

.ramsect 



inc HorLus 

App1icatieBuffer: 


lda HorLus 

.block 

7*640 


cup }*80 

PrDrvrBuffer: 


bne 

BeginHorLus 

.block 

7*640 

jsr 

StcpPrint 

HorLus: 


EindeProgramma: 

.block 


lda 

a4L 

VertLus: 


sta 

dispBufferOn 

.block 

ti 

jsr 

$c22c 

NieuwByte: 


rts 


.block 

#8 



•psect 


InitBuffer: 


InitRoutine: 


LoadW 

aO,ApplicatieBuffer 

lda 

dispBufferOn 

lda 

#0 

sta 

a4L 

ldx 

#0 

lda 

#$80 

BeginLus: 


sta 

dispBufferOn 

ldy 

#0 

lda 

x$oo 

LaatsteLus: 

sei 



sta (aO),y 

ldx 

#$ 37 


iny 

stx 

$0.1 


cpy 7*128 

sta 

$d020 


beq MisschienStoppen 

ldx 

#$30 


cpy #0 

stx 

$0] 

bne 

LaatsteLus 

cli 


inc 

aOH 

sta 

$02 

inx 


LoadW 

r6,PrntFilename 

jmp 

BeginLus 

jsr 

GetFile 

MisschienStoppen: 

cpx 

#$00 

cpx 

#2 

bne 

EindeProgramma 

bne 

LaatsteLus 

jsr 

InitForPrint 

rts 


jsr 

StartPrint 



cpx 

#$00 

FillBuffer: 


bne 

EindeProgramma 

lda 

IIorLus 

lda 

#$ff 

cmp 

#$ff 

sta 

HorLus 

beq 

EindeRoutine 

jsr 

InitBuffer 

lda 

#50 

BeginHorLus: 

sta 

VertLus 


jsr FillBuffer 

BeginvertLus: 


LoadW rO,ApplicatieBuffer 


jsr HaalVierBijVier 


LoadW rl,PrDrvrBuffer 


j sr StoreAchtN.ieuweBytes 


Listing 2. 


Ook voor de header nodig. 
Begin van de header. 
Eerste 2 bytes altijd 0. 
Afmetingen Icon: 3 bytes 
breed/ 21 puntjes hoog. 
63 bytes icondata. 


hardprgHdr 

include geosSym 

psect 

word 0 

byte 3 

byte 21 

byte (63+$80) 

byte %.1.1131111, %1113111.1,111111111. 

byte %10000000, %00000000, %0000000.1. 

byte %10000000, %00000000 / %0000000.1. 

byte %10000000,%00000000,%00000001 

byte %10000000,%00000000,%00000001 

byte %10000000/%00000000/%00000001 

byte %10000000/%00000000/%00000001 

byte %10000000/%00000000 ; %00000001 

byte %10000000,%00000000,%00000001 

byte %10000000/%00000000/%00000001 

byte %.10000000, %00000000, %00000001 

byte %10000000,%00000000,%00000001 

byte %10000000, %00000000, %0000000.1 

byte %10000000/%00000000/%0000000.1 

byte %10000000/%00000000/%00000001 

byte %.1.0000000, %00000000, %00000001 

byte %10000000/%00000000,%00000001 

byte %10000000/%00000000/%00000001 

byte %10000000,%00000000,%00000001 

byte %10000000/%00000000/%00000001 

byte %1113.13.11 , %111113 31, %3113 311.1 

dit was de icondata, 63 bytes. In Bitvorm weergegeven (voor 
de duidelijkheid. Nu is het icon helemaal leeg, op een kader 
na. Het Icon kan naar believen veranderd worden. 

Geos File Type USR. 


byte 

$83 

byte 

APPLICATION 

byte 

SEQUENTIAL 

word 

InitRoutine 

word 

EndAdress 

wDrd 

InitRoutine 

byte 

"Hardcopy VI 

byte 

"Peter Boncz' 

byte 

0,0,0,0,0,0,( 

byte 

0/0,0,0,0,0/C 

byte 

"Roep eerst ' 

3yte 

"en druk dan 

)yte 

"voor een har 

byte 

0,0,0,0,0,0,C 

byte 

0,0,0,0,0,0,0 


APPLICATION 
SEQUENTIAL 
laadadres. 
eindadres. 
startadres. 


= 5. 
= 0 . 
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Geos 


Listing 1 (vervolg). 


listing 3. 


-output 

-header 


-seq 

-psect 
-ramsect 
hardprgLst.rel 



dec 

Vertlius 

NietsTeDoen: 


lda 

VertLus 


inc alH 


cnp 

«ff 


lda alH 

bne 


BeginVertLus 


cmp «04 

EindeRoutine: 



bne 

TweedeLus 

rts 



inc 

alL 




lda 

alL 

TweedeMacht: 



cmp 

«04 

tay 



bne 

NaarEersteLus 

lda 

«00 


rts 


sta 

a2L 


NaarEersteLus: 


sec 



jmp 

EersteLus 

MachtLus: 





rol 

a2L 

StoreAchtNieuweBytes: 


dey 


lda 

«00 


cpy 

«ff 

sta 

aOH 


clc 


clc 


bne 

MachtLus 


lda 

«0 

lda 

a2L 


sbc 

VertLus 

rts 



sta 

aOL 




asl 

aOL 

HaalVierBijVier: 


rol 

aOH 

lda 

«00 


asl 

aOL 

sta 

all 


rol 

aOH 

EersteLus: 



asl 

aOL 

lda 

ali 


rol 

aOH 

sta 

a2H 


lda 

f [(ApplicatieBuffer) 

asl 

a2H 


clc 


ldy 

a2H 


adc 

aOL 

lda 

«00 


sta 

aOL 

sta 

NieuwByte,y 

bcc 

geenoverflow 

sta 

NieuwByte+l,y 

inc 

aOH 

sta 

alH 


clc 


sta 

a3H 


geenoverflow: 


lda 

HorLus 


lda 

t] (ApplicatieBuffer) 

sta 

a3L 


adc 

aOH 

asl 

a3L 


sta 

aOH 

rol 

a3H 


ldy 

« 

asl 

a3L 


Wegschri j fLus: 

rol 

a3H 



lda NieuwByte,y 

clc 




sta (aO) ,y 

lda 

ali 



iny 

adc 

a3L 



cpy « 

sta 

a3L 


bne 

WegSchrijfLus 

bcc 

CarryClear 

rts 


inc 

a3H 




clc 



FillDoublePoint: 

CarryClear: 



clc 


TweedeLus: 


lda 

alH 


ldx 

«00 

sta 

aOL 


stx 

r3H 

asl 

aOL 


lda 

VertLus 

lda 

aOL 


sta 

rllL 

jsr 

TweedeMacht 


asl 

rllL 

sta 

aOH 


asl 

rllL 

inc 

aOL 


lda 

rllL 

lda 

aOL 


clc 


jsr 

TweedeMacht 


adc 

alH 

adc 

aOH 


sta 

rllL 

sta 

aOH 


lda 

a3L 

clc 



sta 

r3L 

ldy 

a2H 


lda 

a3H 

lda 

NieuwByte,y 


sta 

r3H 

adc 

aOH 


lda 

«01 

sta 

NieuwByte,y 


jsr 

TestPoint 

sta 

NieuwByte+ 1 , y 


bcc 

NietsTeDoen 

rts 




jsr FillDoublePoint 

EndAdress: 



hardprg.ink 
hardcopy. prg 
hardprgHdr - rel 


$6000 

$6300 


; naam voor de outputfile. 

; naam van de file met 
; de header. 

; dit is een sequentiele 
; applicatie. 

; begin programmacode: $6000 
; begin variabelen: $6300 
; naam van de file met de zg 
; 'relocatable' machinekode 
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PRINT OUT C-16 met o.a.Dropper 




Checksum cl 6 

390 

data 

73, 6,170, 32, 73 




400 

data 

6,132,253, 32, 95 




410 

data 

164,162, 3,169, 32 

10 

rem 

****************************** 

420 

data 

32,210,255,202, 208 

20 

rem 

syntax.checksum 

430 

data 

250,169, 0,133,252 

30 

rem 

voor c-16 & plus/4 

440 

data 

164,253, 96, 82, 69 

40 

rem 


450 

data 

71, 69, 76, 32, 0 

50 

rem 

syntax testen met 'sys 1536' 

460 

data 

0, 72,138, 72, 32 

60 

rem 


470 

data 

225,255,240,251,104 


70 rem v.851128.16 jan bodzinga 

80 rem ****************************** 
90 i=1536 : rem beginadres 

100 reada:if a>=0then pokei,a:i=i+l:got 
olOO 

110 print"data[SPACE]is[SPACE]weggezet" 

120 print"cheksum[SPACE]printen[SPACE] 

met[SPACE]'sys[SPACE]1536' 


480 


data 170,104, 96, -1 


EINDE LISTING checks16 


Checksum Checksum C-16 


O 

1 

1 

130 

end 


1 

200 

data 

165, 43,166, 44,133 


1 

210 

data 

31,134, 32,169,147 


1 

220 

data 

32,210,255,160, 0 

o 

1 

230 

data 

240, 3, 32, 73, 6 

1 

1 

240 

data 

32, 73, 6,208, 1 


1 

250 

data 

96, 72,152, 32,131 


1 

260 

data 

6,168,104,234, 32 

o 

1 

270 

data 

81, 6, 32, 73, 6 

1 

1 

280 

data 

240, 12,201, 32,240 


1 

290 

data 

247, 24,101,252,133 


1 

300 

data 

252, 76, 37, 6,166 

o 

1 

310 

data 

252,169, 0,132,253 

ï 

1 

320 

data 

32, 95,164,169, 13 


1 

330 

data 

32,210,255,164, 253 


1 

340 

data 

76, 17, 6,200,208 



350 

data 

2,230, 32,177, 31 

o 


360 

data 

96,162, 0,189,123 

1 

370 

data 

6,240, 6, 32,210 


1 

380 

data 

255,232,208,245, 32 


REGEL 

10 

249 

REGEL 

300 

118 

REGEL 

20 

247 

REGEL 

310 

204 

REGEL 

30 

121 

REGEL 

320 

165 

REGEL 

40 

143 

REGEL 

330 

252 

REGEL 

50 

75 

REGEL 

340 

106 

REGEL 

60 

143 

REGEL 

350 

98 

REGEL 

70 

8 

REGEL 

360 

163 

REGEL 

80 

249 

REGEL 

370 

45 

REGEL 

90 

103 

REGEL 

380 

0 

REGEL 

100 

2 

REGEL 

390 

58 

REGEL 

110 

245 

REGEL 

400 

108 

REGEL 

120 

237 

REGEL 

410 

159 

REGEL 

130 

128 

REGEL 

420 

245 

REGEL 

200 

210 

REGEL 

430 

202 

REGEL 

210 

208 

REGEL 

440 

176 

REGEL 

220 

142 

REGEL 

450 

12 

REGEL 

230 

1 ' 

REGEL 

460 

54 

REGEL 

240 

3 

REGEL 

470 

43 

REGEL 

250 

157 

REGEL 

480 

1 

REGEL 

260 

155 




REGEL 

270 

215 




REGEL 

280 

186 




REGEL 

290 

248 





O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 


Programma omzet16 


Dit programma geschreven door R. Luttjeboer uit 
Winschoten maakt het hires beeldscherm ge¬ 
schikt voor uitgave naar de printer. Omdat het hi¬ 
res beeldscherm in kolommetjes van 8x8 bits is 
opgebouwd is deze omzetting nodig. Het pro¬ 
gramma dat in machinetaal is geschreven spie¬ 
gelt elk kolommetje om de diagonaal die van 
linksboven naar rechtsonder door dit kolommetje 
loopt. Door een ’sys 1536’ kommando wordt het 
beeldscherm omgezet. Herstellen gebeurt met 
hetzelfde kommando. Het programma is bedoeld 
als onderdeel van een ander programma. 


10 

rem 

printer omzetter voor c-16 

20 

rem 

door r. luttjeboer 

30 

rem 

uit winschoten 

40 

rem 

tel: 05970-22161 

50 

rem 


60 

rem 

16 

contact gezocht met andere c- 

70 

rem 

van 

gebruikers voor uitwisseling 

80 

rem 

programma's en ervaringen 

90 

rem 


100 

b=1536 

110 

reada:ifa=-lthengoto200:elsepokeb, 


a *.b= 

=b+l:gotollO 


120 datal69,0,141,8 6,3,141,20, 6, 141,58 

,6,169,32,141,21,6 

130 datal41,59,6,173,64,63,141, 78,3,23 
8,20,6,238,23,6,173 

140 data20,6,201,0,208,3,238,21, 6, 173, 

23,6,201,86,208 

150 data227,169,78,141,23,6,24,46,78,3 

,46,64,63,238,55,6 

160 datal73,55,6,201,86,208,239, 169, 78 
,141,55,6,238,58,6 

170 datal73,58,6,201,0,208,3, 238,59, 6, 
238,86,3,173,86,3 

180 data201,8,208,211,169, 0,141,86,3,1 
73, 21,6,201,63,208 

190 datal65,173,20,6,201,64,208,158,96,-1 

200 scnclr:print"[SPACE]voor[SPACE]omz 
etting[SPACE]grafisch[SPACE]beelds 
cherm" 

210 print"[SPACE]'graphicl, 0:sysl536' [ 
SPACE]commando[SPACE]geven." 

220 print"[SPACE]voor[SPACE]herstellen 
[SPACE]van[SPACE]beeldscherm" 

240 print"[SPACE]nogmaals[SPACE] ' sys[S 
PACE]1536'[SPACE]commando[SPACE]ge 
ven. " 

** EINDE LISTING omzet16 


O 

o 

o 

o 

o 

o 

o 

o 


o 
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o 

o 
o 
o 

O ; 

o ! 
o I 
o I 
o 

o 

o 

o 

o 

o 

o 
o ! 
o ! 
o ! 
o ! 


- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


Checksum printer omzetter 


REGEL 10 
REGEL 20 
REGEL 30 
REGEL 40 
REGEL 50 
REGEL 60 
REGEL 70 
REGEL 80 
REGEL 90 
REGEL 100 
REGEL 110 
REGEL 120 


74 

67 

131 

220 

143 

27 

84 

51 

143 

195 

19 

185 


REGEL 130 
REGEL 140 
REGEL 150 
REGEL 160 
REGEL 170 
REGEL 180 
REGEL 190 
REGEL 200 
REGEL 210 
REGEL 220 
REGEL 240 


255 

26 

222 

228 

160 

181 

224 

107 

175 

28 

60 


Programma hardcopy cl 6 


Ook dit programma werd geschreven door R. Lut- 
jeboer uit Winschoten en dit programma is een 
kompleet hires hardcopyprogramma. Het maakt 
gebruik van de printer omzetter. De gebruikte in- 
stelcodes zijn voor de General Electric TXP-1000 
maar kunnen vervangen worden door comman¬ 
do’s voor andere printers met grafische mogelijk¬ 
heden. Het programma kan na bijvoorbeeld een 
tekenprogramma gebruikt worden mits het teken¬ 
programma na afloop het grafische beeld niet uit¬ 
wist. Ook kan een subroutine met tekeninstruc¬ 
ties ingebouwd worden. 


printer omzetter voor c-16 
door r. luttjeboer 
uit winschoten 
tel: 05970-22161 

contact gezocht met andere c-16 
gebruikers voor uitwisseling 

programma's en ervaringen 


10 rem 

20 rem 

30 rem 

40 rem 

50 rem 

60 rem 

70 rem 

van 

80 rem 

90 rem 

100 b=1536 

110 reada:ifa=-lthengoto200:elsepokeb, 
a:b=b+l:gotollO 

120 datal69, 0,141,86,3,141,20,6,141,58 
, 6,169,32,141,21,6 

130 datal41,59,6,173,64,63,141,78,3,23 
8,20,6,238,23,6,173 

140 data20,6,201,0,208,3,238,21,6,173, 

23.6.201.86.208 

150 data227,169, 78, 141,23, 6, 24, 46, 78,3 

,46,64,63,238,55,6 

160 datal73,55,6,201,86, 208, 23 9,169, 78 
,141,55,6,238,58,6 

170 datal73,58,6,201,0,208,3,238,59,6, 
238,86,3,173,86,3 

180 data201,8,208,211,169,0,141,86,3,1 

73.21.6.201.63.208 

190 datal65,173,20,6,201,64,208,158,96, 
200 scnclr:print"[SPACE]voor[SPACE]omz 
etting[SPACE]grafisch[SPACE]beelds 
cherm" 

210 print"[SPACE]'graphicl,0:sysl536'[ 
SPACE]commando[SPACE]geven." 

220 print"[SPACE]voor[SPACE]herstellen 
[SPACE]van[SPACE]beeldscherm" 

240 print"[SPACE]nogmaals[SPACE] ' sys[S 
PACE]153 6' [SPACE]commando[SPACE]ge 
ven. " 

** EINDE LISTING hardco16 
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Checksum Hardcopy 


REGEL 10 
REGEL 20 
REGEL 30 
REGEL 40 
REGEL 50 
REGEL 60 
REGEL 70 
REGEL 80 
REGEL 90 
REGEL 100 
REGEL 110 
REGEL 120 


74 

67 

131 

220 

143 

27 

84 

51 

143 

195 

19 

185 


REGEL 130 
REGEL 140 
REGEL 150 
REGEL 160 
REGEL 170 
REGEL 180 
REGEL 190 
REGEL 200 
REGEL 210 
REGEL 220 
REGEL 240 


255 

26 

222 

228 

160 

181 

224 

107 

175 

28 

60 


Programma dropper cl 6 


Peter Boersma is ook de maker van dit spel Pe¬ 
ter stuurt regelmatig programma’s naar ons op en 
al diverse malen zijn programma’s van hem ge¬ 
plaatst de eerste is al weer van twee jaar gele¬ 
den. 

Dropper is een spel waarbij de speler met joys¬ 
tick 1 moet proberen een balletje tussen stijgende 
balken door te manoeuvreren. Daarbij zijn 3 fa¬ 
sen te onderscheiden. 1. de begin fase. veel bal¬ 
ken; zorg dat je nier verpletterd wordt tegen het 
plafond. 2. tussen fase; het aantal balken wordt 
minder; gewoon zo lang mogelijk volhouden. 3 de 
eindfase; er zijn nauwelijks genoeg balken; blijf er 
zolang mogelijk op liggen zodat je kunt zien waar 
de volgende komt. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

20 

30 


rem -c-16- 
16- 

rem- 


dropper 
-c- 


rem -c-16- 
16- 

rem - door: peter boersma (mei'88 

) ~ 

rem -alias:social software service 
s - 

rem - voor: commodore info 

i _ 

rem - (sss 1988) 

rem - nr. 12-107 enschede 

rem -c-16-c- 

16- 

scnclr:colorO,1:color4,1:colorl, 8, 

4 

printchr$(27)"n";chr$(142)chr$(8); 
print"score:sc;tab(ll)"[CTRL-9]d 
ropper [CTRL-0] [SPACE](c)sss'88[SPA 
CE]high";hi 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


40 

printchr$(27)"t":gosub 380 

1 

50 

colorO,1:color4,1:colorl,8,4 

1 O 

1 

60 

for a=l to 24:1$="" 

70 

if rnd(0)>.4 then goto 100 

1 

1 

80 

w=int (rnd(0) *30):l=int (rnd(0) *10)+ 

1 

90 

1 

1$="[CTRL-9]":for b=l to 1:1$=1$+" 
[SPACE]":nextb 

! o 

1 

100 

printtab(w)1$:nexta:p=3492 

1 

110 

geta$:rem poke p,32 

I o 

1 

120 

if a$="6" and p<4071 then p=p+l 

130 

if a$="d" and p>3112 then p=p-l 

1 

1 

140 

if p<4031 and peek(p+00)=32 then p 
=p+40 

o 
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- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


150 if peek (p+00)=160and p>3152 then 
p=p-40 

160 if p<3152 or p>3992 then goto 270 
170 poke p,81:sc=sc+l:gosub 240 
180 if rnd(0)>l-so/1000then goto 210 
190 w=int(rnd(0)*30);l=int(rnd(0)*10)+ 
1 

200 1$="[CTRL-9]":for b=l to 1:1$=1$+" 

[SPACE]":nextb 

210 k=k+l: if k=7 then k=3 
220 colorl,8,k:printtab(w)1$:1$="":got 
o 110 


SPACE]B[4xSPACE]B[4xSPACE]B[SPACE] 
B[7xSPACE]" 

430 colorl,5,1:print"[SPACE][COM-Z]CCC 
K[COM-E][SPACE]JC[SPACE]JCCCK[COM- 
E][4xSPACE][COM-E][4xSPACE]JCCCK[C 
OM E][SPACE]JC[6xSPACE]" 

440 colorl,5,2:printtab(17)"[3xCRSR-DO 
WN][CTRL-9]dropper" 

450 colorl,5,3:printtab(15)"[CRSR-DOWN 
][CTRL-9]is[SPACE]een[SPACE]spel" 
460 colorl,5,4:printtab(13)"[CRSR-DOWN 
][CTRL-9]waarbij[SPACE]jij[SPACE]e 


230 rem - score - 

240 s$=str$(sc):for a=l to len(s$) 

250 poke 3077+a,asc(mid$(s$,a, 1)) :next 
:return 

260 rem - einde - 

270 scnclr:h=0:if sc>hi then hi=sc:h=l 
280 h$=str$(hi):fora=l to len(h$) 

290 poke 3104+a,asc(mid$(h$,a,1)):next 
300 c$="":if h=l then c$="nieuwe[SPACE 

]high-score[SPACE]!" 

310 char 1,10,11,c$:print 
320 printtab(10)"[2xCRSR-DOWN][SPACE]s 
core:";sc 

330 printtab(10)"[2xCRSR-DOWN][SPACE]h 
igh[SPACE]:";hi 

340 print"[3xCRSR-DOWN][1OxSPACE]druk[ 

SPACE]op[SPACE]'return'" 

350 geta$ :ifa$Ochr$ (13)then350 

360 sc=0:goto 10 

370 rem - introductie - 

380 scnclr:colorO,1:color4,3,3:colorl, 
2 

390 colorl,5,7:print"[SPACE][COM-A]CCC 
I[COM-A]CCCIUCCCI[COM-A]CCCI[COM-A 
]CCCIUCCCI[COM-A]CCCI(c)[2xSPACE]" 
400 colorl,5,5:print"[SPACE]B[3xSPACE] 
BB[3XSPACE]BB[3xSPACE]BB[3xSPACE]B 
B[3xSPACE]BB[3xSPACE]BB[3xSPACE]Bs 
ss[2xSPACE]" 

410 colorl,5,4:print"[SPACE]B[3xSPACE] 
B[COM-Q]C[COM-R]CKB[3xSPACE]B[COM- 
Q]CCCK[COM-Q]CCCK[COM-Q]CCCK[COM-Q 
]C[COM-R]CK'88[2xSPACE]" 

420 colorl,5,3:print"[SPACE]B[3xSPACE] 
BB[SPACE]B[2xSPACE]B[3xSPACE]BB[4x 


en" 

470 colorl,5,5:printtab(11)"[CRSR-DOWN 
] [CTRL-9]ballet j e[SPACE]door[SPACE 
]balken" 

480 colorl,5,6:printtab(08)"[CRSR-DOWN 
][CTRL-9]moet[SPACE]sturen[SPACE]z 
onder[SPACE]dat[SPACE]het" 

490 colorl,5,7:printtab(06)"[CRSR-DOWN 
] [CTRL-9]balie j e[SPACE]de[SPACE]gr 
ond[SPACE]of[SPACE]het[SPACE]plafo 
nd" 

500 colorl,5,6:printtab(03)"[CRSR-DOWN 

][CTRL-9]raakt.[SPACE]besturing[SP 
ACE]gaat[SPACE]via[SPACE]joystick[ 
SPACE]1" 

510 colorl,5,5:printtab(01)"[CRSR-DOWN 

][CTRL-9]druk[SPACE]op[SPACE]de[SP 
ACE]spatiebalk[SPACE]om[SPACE]te[S 
PACE]beginnen...":q=0 
520 for a=l to 100:next a 

530 if q>4031 then poke q,32:q=0 

540 get a$:if a$=chr$(32) then return 
550 if q=0then q=3332 

560 if peek(q+40)=160or peek(q+40)=32 
then poke q,32:q=q+40:poke q,81:g 
oto 520 

570 d=int(rnd(0)*3-1):if d=0then 570 
580 poke q,32:q=q+d:poke q,81:if peek( 
q+40)=32 or peek(q+40)=160then go 
to 560 

590 for a=l to 100:next a:goto 580 

600 rem -sss-' 88- 

610 rem- dropper - 

620 rem -c-16-c-16- 

** EINDE LISTING dropper16 _ 


Checksum dropper 


REGEL 

i 

162 

REGEL 

110 

223 

REGEL 

300 

8 

REGEL 

490 

180 

REGEL 

2 

33 

REGEL 

120 

110 

REGEL 

310 

146 

REGEL 

500 

54 

REGEL 

3 

162 

REGEL 

130 

118 

REGEL 

320 

179 

REGEL 

510 

241 

REGEL 

4 

163 

REGEL 

140 

144 

REGEL 

330 

82 

REGEL 

520 

215 

REGEL 

5 

23 

REGEL 

150 

196 

REGEL 

340 

19 

REGEL 

530 

226 

REGEL 

6 

58 

REGEL 

160 

170 

REGEL 

350 

79 

REGEL 

540 

148 

REGEL 

7 

14 

REGEL 

170 

204 

REGEL 

360 

156 

REGEL 

550 

51 

REGEL 

8 

129 

REGEL 

180 

27 

REGEL 

370 

3 

REGEL 

560 

76 

REGEL 

9 

162 

REGEL 

190 

188 

REGEL 

380 

89 

REGEL 

570 

33 

REGEL 

10 

94 

REGEL 

’ 200 

0 

REGEL 

390 

31 

REGEL 

580 

48 

REGEL 

20 

33 

REGEL 

210 

243 

REGEL 

400 

134 

REGEL 

590 

55 

REGEL 

30 

225 

REGEL 

220 

78 

REGEL 

410 

40 

REGEL 

600 

132 

REGEL 

40 

20 

REGEL 

230 

67 

REGEL 

420 

69 

REGEL 

610 

33 

REGEL 

50 

60 

REGEL 

240 

226 

REGEL 

430 

72 

REGEL 

620 

72 

REGEL 

60 

79 

REGEL 

250 

118 

REGEL 

440 

131 




REGEL 

70 

155 

REGEL 

260 

44 

REGEL 

450 

236 




REGEL 

80 

188 

REGEL 

270 

206 

REGEL 

460 

248 




REGEL 

90 

0 

REGEL 

280 

199 

REGEL 

470 

102 




REGEL 

100 

55 

REGEL 

290 

154 

REGEL 

480 

235 
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o 


o 


Checksum C-64 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 


Syntax Checksum 


Het overtikken van een listing kan een heel kar¬ 
wei zijn en als u een beetje normaal mens bent 
dan maakt u daarin beslist een aantal fouten. Nu 
is niets moeilijker om de fouten uit je eigen werk 
te halen. Al geruime tijd heeft Jan Bodzinga hier¬ 
voor een zgn. Checksum-programma geschre¬ 
ven. Om de vele nieuwe lezers van Commodore- 
info te helpen volgt hieronder nog een keer een 
volledige uitleg over de werking van dit program¬ 
ma, waarmee het, hoe vreemd dat misschien ook 
lijkt, echt mogelijk is om met behulp van dit pro¬ 
gramma de fouten in elke door ons geplaatste lis¬ 
ting op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt 
hem voordat u het programma RUNt op een dis¬ 
kette of cassette. 

2. U tikt het RUN commando in. Mocht het pro¬ 
gramma de boodschap 'FOUT in dataregels!’ ge¬ 
ven dan heeft u een fout bij het overtikken ge¬ 
maakt. Herstel dan de fout en SAVE de verbeter¬ 
de versie. Mocht het programma met de bood¬ 
schap 'data is weggezet checksum testen met 
sys...'komen dan is tot dusver alles goed. Het 
programma is nu in een stukje machine- 
taalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Ba¬ 
sic geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de 
gehele listing opnieuw te gaan intikken. Als u nu 
een programma op fouten wilt gaan controleren 
dan kunt u dat in het geheugen laden(wel eerst 
het checksum programma hebben gerund). Ver¬ 
volgens typt u zonder het programma te runnen 
de opdracht sys 49152(c-64) of sys 1536 (c-16 
en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regel¬ 
nummers over het scherm met getallen erachter. 
Dezelfde lijst staat ook achter elk door ons ge¬ 
plaatste programma. Wijkt nu een nummer achter 
een regelnummer af van het nummer dat in het 
blad staat dan heeft u in die regel iets anders 
ingetikt dan er in het blad stond. U kunt de 
stroom getallen d.m.v. de RUN/STOP toets pau¬ 
zeren en weer vervolgen met de F1 of F7 toets. 
Het is uitermate belangrijk dat u goed met dit pro¬ 
gramma overweg kunt en mocht u het niet goed 
werkend krijgen bel dan gerust even met onze 
listingservice telefoonlijn. (Maandag 17.00 - 21.00 
uur. Telefoonnummer 02155-25162.) 

1 rem ****************************** 

2 rem basic loader " SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new" 

4 rem blijft dit programma in het ge- 

5 rem heugen, laad het te testen pro- 

6 rem gramma en tik daarna sys 49152. 

7 rem ****************************** 

10 i=49152 :rem beginadres 


20 reada:ifa<0then40:rem data ingelezen 

30 pokei,a:i=i+l:b=b+a:goto20 I 

40 if b<>16844thenprint"[SHIFT-CLR]fo I 

ut[SPACE]in[SPACE]dataregels!":b=0 
: end [ 

50 poke49184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 

70 pokei,a:b=a+b:i=i+l:goto60 

80 if b<>20068thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 prinfdata [SPACE] is [SPACE] weggezet" 

95 print"checksum[SPACE]testen[SPACE] 

met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 

,169,147 

110 data 32,210,255,160,0,240,3,32,73,192 j 

120 data 32,73,192,208,1,96,32,225,255,2081 

130 data 3,76,116,164,32,81,192,32,73,192 I 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 I 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 I 

180 data 96,162,0,189,123,192,240,6,32,21a 1 2 3 4 5 6 7 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 I 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32,0 | 

230 data -1 I 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 I 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


EINDE LISTING checksum 64 ** 


O 


Chechsum Checksum C-64 


REGEL 

i 

249 

REGEL 

150 

96 

REGEL 

2 

84 

REGEL 

160 

127 

REGEL 

3 

105 

REGEL 

170 

71 

REGEL 

4 

2 

REGEL 

180 

223 

REGEL 

5 

246 

REGEL 

190 

73 

REGEL 

6 

152 

REGEL 

200 

79 

REGEL 

7 

249 

REGEL 

210 

109 

REGEL 

10 

157 

REGEL 

220 

106 

REGEL 

20 

64 

REGEL 

230 

225 

REGEL 

30 

38 

REGEL 

240 

16 

REGEL 

40 

57 

REGEL 

250 

163 

REGEL 

50 

14 

REGEL 

260 

92 

REGEL 

55 

251 

REGEL 

270 

22 

REGEL 

60 

192 




REGEL 

70 , 

42 




REGEL 

80 

244 




REGEL 

90 

245 




REGEL 

95 

237 




REGEL 

100 

183 




REGEL 

110 

158 




REGEL 

120' 

232, 




REGEL 

130 

183 




REGEL 

140 

96 





O 

o 

o 

o 

o 

o 
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PRINT OUT C-64 met o.a. Key maze 


Programma golf 64 


Golf een heerlijke zomerse sport, zelfs op de 
computer is dit spel al in verschillende variaties 
aanwezig. Toch heeft M. Boorsma een golf pro¬ 
gramma geschreven, dat nog niet eerder is ver¬ 
schenen, een duidelijke uitleg welke toetsen te 
gebruiken is in het programma opgenomen. 

10 rem ****************************** 


20 rem * gemaakt door : * 

30 rem * * 

40 rem * michiel boorsma * 

50 rem * * 

60 rem * voor : * 

7 0 rem * * 

80 rem * commodore info * 

90 rem * * 


95 rem ‘programma starten met run97 * 

96 rem ****************************** 

97 hs=10[KWADRAAT PIJL]5 

100 gosublOOO:poke53280,12:poke53281,5 
:poke649,1:poke650,132 
110 s=2:sc=1024:co=55296:xc=0:a=l:cl=l 

:ho=l:ac=0 

120 un=32:uc=5:nu=32:cu=5:yb=23:xb=int 

(rnd(l)*38+1):xc=int(rnd(l)*3+2) 

130 hi=0:print"[SHIFT-CLR][CTRL-6]:f 
ori=ltol2+4*ho:xc=int(rnd(l)*40) 

135 yc=int(rnd(1)*22+3):pokesc+40*yc+x 
c,8 8:pokeco+yc*4 0+xc,0:next 
140 xc=int(rnd(1)*5+3) 

150 fori=ltoxc:print"[CRSR-DOWN]:nex 

t:fori=2toint(rnd(1)*20+2) 

160 print"[CRSR-RIGHT]";:next:print"[C 

TRL 8][COM-P][COM-O][COM-I][CTRL-9 
][COM-T][COM-Y][COM-T][CTRL-0][COM 
I][COM-P][COM-'][CTRL-4][COM-G][C 
RSR-LEFT][CRSR-UP][SHIFT-|][2xCRSR 
-LEFT][CRSR-UP][CTRL-9]"ho"[CTRL-0 
][CRSR-LEFT][SHIFT-|][3xCRSR-LEFT] 
[SPACE][2xCRSR-DOWN][2xCRSR-RIGHT] 
[CTRL-8][COM-P][COM-O][COM-'] 

170 print"[CRSR-DOWN][15xCRSR-LEFT][CO 

M T][CTRL-9][9xSPACE]Q[4xSPACE][CO 
M T] [CRSR-DOWN] [13XCRSR-LEFT] [COM- 
V][2xSPACE][COM-D][COM-F][3xSPACE] 
[COM-D][COM-F]"; 

180 print"[CRSR-DOWN][12xCRSR-LEFT][CO 
M T] [COM-Y] [COM-T] [CTRL-9] [COM-O] [ 
COM-P][CRSR-RIGHT][COM-J][5xSPACE] 
[CRSR-DOWN][5XCRSR-LEFT][4xSPACE][ 
CTRL-0][SPACE]"; 

190 print"[CRSR-DOWN][6xCRSR-LEFT][COM 

T][COM-Y][COM-T][CTRL-9][COM-O][C 
TRL 0][2xSPACE]" 

200 print"[HOME]":fori=ltol5+int(rnd(1 

)*6):print"[CRSR-DOWN]:next 
210 fori=ltoint(rnd(1)*35):print"[CRSR 

-RIGHT]";:next:print"[CTRL-7][4xCO 
M +][2xCOM-I][CRSR-DOWN][4xCRSR-LE 
FT][2xCOM-+][COM—][CRSR-DOWN][3xC 
RSR-LEFT][COM-+]" 

220 print"[HOME]":fori=ltol5+int(rnd(l 

)*7):print"[CRSR-DOWN]:next 
225 fori=ltoint(rnd(l)*35):print"[CRSR 

-RIGHT]:next:print”[2xCOM-+][CRS 
R-DOWN][2xCRSR-LEFT][3xCOM-+]" 


230 print"[HOME]":fori=ltol5+int(rnd(1 
) *6) .-print" [CRSR-DOWN] "; :next 
235 forx=ltoint(rnd(1)*30):print"[CRSR 
-RIGHT] : next-.print" [2xCOM- | ] [3xC 
OM +][COM-I][CRSR-DOWN][5xCRSR-LEF 
T][4xCOM-+][CRSR-DOWN][5xCRSR-LEFT 
][COM-|][3XCOM-+][3xCOM-|]" 

240 yc=25:xc=20:hh=l:un=32:uc=l 

250 pokel97,0:pokeco+yb*40+xb,1:pokesc 
+yb*40+xb,81 

260 print"[HOME][CTRL-1][2xSPACE]club[ 
SPACE]?[17xSPACE][HOME]"; 

270 geta$:ifa$<"l"ora$>"9"then270 
280 cl=val(a$):printtab(6)cl 
290 print"[HOME]"tab(10)"[CTRL-4]krach 
t[SPACE]:ifhh=lthenprint"zacht[ 
2xSPACE]" 

300 ifhh=2thenprint"normaal" 

310 ifhh=3thenprint"hard[3xSPACE]" 

320 c=93:ifa=2thenc=77 

330 ifa=3thenc=64 
340 ifa=4thenc=78 
350 geta$ 

355 ifa$<>" ' "anda$<>":"anda$<>";"anda$ 

O"/"then440 

360 pokeco+yc*40+xc, uc 
370 pokesc+yc*40+xc,un:xc=xc+(a$=":") - 
(a$=";"):yc=yc+(a$="'")-(a$="/") 

380 ifyc<lthenyc=l 
390 ifyc>24thenyc=24 
400 ifxc<0thenxc=0 
410 ifxc>39thenxc=39 

420 un=peek (sc+yc*40+xc) :uc=peek(co+yc 
*40+xc) 

430 ifun=81thenyc=yb+l:goto420 
440 pokeco+yc*40+xc,2:pokesc+yc*40+xc, 
c 

450 a=a+(a$=".")-(a$=","):ifa<lthena=4 
460 ifa>4thena=l 
470 ifa$="h"thenhh=3 
480 ifa$="n"thenhh=2 
490 ifa$="z"thenhh=l 

500 ifa$>="l"anda$<="9"thencl=val(a$): 

print"[CTRL-1][HOME]"tab(6)cl 
510 ifa$<>"[SPACE]"then290 

520 dx=0:dy=0:ifa=landyc<>ybthen660 
530 ifa=landabs(xc-xb)>lthen660 
540 ifa=landxc<xbthendx=l:goto690 
550 ifa=landxc>xbthendx=-l:goto690 
560 ifa=2and(abs(xc-xb)Olorabs(yc-yb) 
<>1)then660 

570 ifa=2andxc<xbandyc>ybthendx=l:dy=- 
1:goto690 

580 ifa=2andxc>xbandyc<ybthendx=-l:dy= 

1:goto690 

590 ifa=3andxc<>xbthen660 
600 ifa=3andabs(yb-yc)>lthen660 
610 ifa=3andyc<ybthendy=l:goto690 
620 ifa=3andyc>ybthendy=-l:goto690 
630 ifa=4and(abs(xc-xb)Olorabs(yc-yb) 
<>1)then660 

640 ifa=4andxc>xbandyc>ybthendx=-l:dy= 
-1:goto690 

650 ifa=4andxc<xbandyc<ybthendx=l:dy=l 
:goto690 

660 print"[HOME][CTRL-2][SPACE]mis[SPA 
CE]![19xSPACE]":fori=ltol000:next: 
print"[HOME][7xSPACE]" 
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- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


670 pokesc+yc*40+xc,un:pokeco+yc*40+xc 
, uc 

680 goto260 

690 d=int ((rnd(l)*(cl/3))*3+1)*hh:ifnu 

=102thend=int (d/2) 

700 hi=hi+l 

710 pokeco+yb*40+xb,cu:pokesc+yb*40+xb 
,nu:yb=yb+dy:xb=xb+dx 
720 ifxb<lorxb>39oryb<2oryb>24then740 
730 goto760 

740 print"[HOME][CTRL-2][2xSPACE]bal[S 
PACE]uit[17xSPACE]":fori=ltol500:n 
ext:nu=32 

750 yb=23:xb=int(rnd(1)*37+1):goto250 

760 cu=peek(co+yb*40+xb):nu=peek(sc+yb 
*40+xb) 

770 ifnu=88thend=l:xb=xb-dx:yb=yb-dy:g 

oto720 

780 pokeco+yb*40+xb,1:pokesc+yb*40+xb, 
81 

790 fori=0to20:next 

800 ifnu=209andd<3then850 
810 if(nu=102ornu=104)and(d<4orhh<3)th 
end=l 

820 d=d-l:ifd>0then710 

830 pokesc+yc*40+xc,un:pokeco+yc*40+xc 
, uc 

840 goto260 

850 print"[CTRL-1][HOME]hole[SPACE]in" 
hi"[CRSR-LEFT][SPACE]keer[2lxSPACE 
] " 

860 ac=ac+hi 

870 fori=lto2000:next:print"[SHIFT-CLR 
][3xCRSR-DOWN][3xCRSR-RIGHT]"ho"[C 
RSR-LEFT]e[SPACE]hole[SPACE]gehaal 
d":print"[COM-4][CRSR-DOWN][4xCRSR 
-RIGHT]score[SPACE]tot[SPACE]nu[SP 
ACE]toe"ac 

880 ho=ho+l:ifho>9thenl200 
890 fori=lto5000:next:gotol20 

1000 poke53280,6:poke53281, 6 

1005 print"[SHIFT-CLR]"tab(10)"[CTRL-8] 
***[SPACE]golf[SPACE]***":print"[C 
RSR-RIGHT][CRSR-DOWN][CTRL-1]dit[S 
PACE]golfterrein[SPACE]heeft[SPACE 
]negen[SPACE]holen." 

1010 print"[CRSR-RIGHT]wanneer[SPACE]cl 
ub[SPACE]wordt[SPACE]gevraagd[SPAC 
E]geef[SPACE]dan[4xSPACE]een[SPACE 
]nummer[SPACE]in[SPACE]van[SPACE]1 
[SPACE]tOt[SPACE]9." 

1020 print"[CRSR-DOWN][COM-5][SPACE][CO 
M '][CRSR-LEFT][CRSR-DOWN][CTRL-9] 

'[CTRL-0][SPACE]=[SPACE]club[SPACE 
]naar[SPACE]boven 

1030 print"[CTRL-5][CRSR-RIGHT][CTRL-9] 

[[CTRL-0][SPACE]=[SPACE]club[SPACE 
]naar[SPACE]links 

1040 print"[CTRL-5][CRSR-RIGHT][CTRL-9] 

][CTRL-0][SPACE]=[SPACE]club[SPACE 
]naar[SPACE]rechts 

1050 print"[CTRL-5][CRSR-RIGHT][CTRL-9] 
/[CTRL-0][SPACE]=[SPACE]club[SPACE 
]naar[SPACE]beneden 

1060 print"[COM-6][SPACE][COM-'][4xSPAC 
E][COM-'][6xCRSR-LEFT][CRSR-DOWN][ 
CTRL-9]<[CTRL-0][SPACE]en[SPACE][C 
TRL 9]>[CTRL-0][SPACE]draaien[SPAC 


E]club 

1070 print"[COM-5][SPACE][COM-'][CRSR-L 
EFT][CRSR-DOWN][CTRL-9]z[CTRL-0][S 
PACE]voor[SPACE]een[SPACE]zacht[SP 
ACE]schot 

1080 print"[CRSR-RIGHT][CTRL-9]n[CTRL-0 
][SPACE]voor[SPACE]een[SPACE]norma 
al[SPACE]schot 

1090 print"[CRSR-RIGHT][CTRL-9]h[CTRL-0 
][SPACE]voor[SPACE]een[SPACE]hard[ 
SPACE]schot 

1100 print"[CTRL-8][SPACE][6xCOM-'][7xC 
RSR-LEFT][CRSR-DOWN][SPACE][CTRL-9 
]spatie[CTRL-0][SPACE]=[SPACE]sla[ 
SPACE]bal 

1110 print"[CTRL-6][3xCRSR-DOWN][CRSR-R 
IGHT][22xCOM-P]" 

1120 print"[CRSR-RIGHT][CTRL-9]druk[SPA 
CE]toets[SPACE]voor[SPACE]start." 

1130 print"[CRSR-RIGHT][CTRL-0][22xCOM- 
Y][HOME]" 

1140 geta$:ifa$=""thenll40 

1150 return 

1200 print"[SHIFT-CLR][5xCRSR-DOWN][4xC 
RSR-RIGHT][CTRL-1]je[SPACE]hebt[SP 
ACE]de[SPACE]hele[SPACE]baan[SPACE 
]afgelegd" 

1210 print"[CTRL-3][CRSR-DOWN][4xCRSR-R 
IGHT]score"ac 

1220 ifac>=hsthenprint"[CTRL-2][CRSR-DO 
WN][4xCRSR-RIGHT]beste[SPACE]score 
"hs:gotol260 

1230 hs=ac 

1240 print"[CTRL-2][CRSR-DOWN][4xCRSR-R 
IGHT]het[SPACE]is[SPACE]de[SPACE]b 
este[SPACE]score[SPACE]die" 

1250 print"[4xCRSR-RIGHT]tot[SPACE]nu[S 
PACE]toe[SPACE]gehaald[SPACE]is" 

1260 print"[2xCRSR-DOWN][4xCRSR-RIGHT][ 
COM-4]nog[SPACE]een[SPACE]keer[SPA 
CE] ?" 

1270 geta$:ifa$=""thenl270 

1280 ifa$O"n"thenl00 

1290 print"[SHIFT-CLR][COM-5]":poke5328 
1,6:end 

EINDE LISTING golf 64 _ 
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Q 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


Checksum golf 


REGEL 10 
REGEL 20 
REGEL 30 
REGEL 40 
REGEL 50 
REGEL 60 
REGEL 70 
REGEL 80 
REGEL 90 
REGEL 95 
REGEL 96 
REGEL 97 
REGEL 100 
REGEL 110 
REGEL 120 
REGEL 130 
REGEL 135 
REGEL 140 


123 

75 

227 

241 

227 

99 

227 

180 

227 

245 

123 

145 

228 

30 

76 

95 

50 

78 


REGEL 690 
REGEL 700 
REGEL 710 
REGEL 720 
REGEL 730 
REGEL 740 
REGEL 750 
REGEL 760 
REGEL 770 
REGEL 780 
REGEL 790 
REGEL 800 
REGEL 810 
REGEL 820 
REGEL 830 
REGEL 840 
REGEL 850 
REGEL 860 


95 

175 

36 

68 

38 

183 

198 

89 

75 

180 

110 

152 

125 

63 

89 

33 

216 

245 


Programma key maze 


De bedoeling van Key Maze is dat de speler 1 of 
meer sleutels moet verzamelen om tot de hogere 
levels te komen. Tijdens het spel kan de speler 
kleine pillen ( dit zijn de kleine gele stippen) eten 
om punten te scoren. Ook kan de speler een 
krachtpil (dit zijn de grote grijze pillen) eten om 
de monsters te pakken. Om bij het volgende level 
te komen moet de speler tenminste 1 sleutel en 
25 of meer kleine pillen hebben verzameld. Bij dit 
spel zijn er 20 levels, 3 monsters, en 2 verschil¬ 
lende speelvelden. De maker van al dit schoons 
is Y.S Kasmin uit Amsterdam. 


REGEL 

150 

196 

REGEL 

870 

131 

1 

rem******************************* 

1 

REGEL 

160 

9 

REGEL 

880 

107 


★ ★ ★ 

1 

REGEL 

170 

27 

REGEL 

890 

40 

2 

rem** ==key maze== 

1 

REGEL 

180 

130 

REGEL 

1000 

49 


★ ★ 

1 

REGEL 

190 

246 

REGEL 

1005 

23 



1 

REGEL 

200 

207 

REGEL 

1010 

162 

3 

rem** 

1 

REGEL 

210 

44 

REGEL 

1020 

153 


★ ★ 

1 

REGEL 

220 

208 

REGEL 

1030 

121 

4 

rem** door: y.s.kasmin 

1 

I 

REGEL 

225 

115 

REGEL 

1040 

195 


ie ie 

1 

| 

REGEL 

230 

207 

REGEL 

1050 

189 

5 

rem** 

| 

REGEL 

235 

76 

REGEL 

1060 

202 


ie ie 

1 

REGEL 

240 

244 

REGEL 

1070 

188 

6 

rem** amsterdam-west 

1 

REGEL 

250 

130 

REGEL 

1080 

115 


ie 

1 

REGEL 

260 

51 

REGEL 

1090 

130 



1 

REGEL 

270 

219 

REGEL 

1100 

227 

7 

rem* * * *-* 

1 

REGEL 

280 

32 

REGEL 

1110 

85 


* * * 

1 

REGEL 

290 

104 

REGEL 

1120 

211 

8 

rem****** voor commodore info *** 

1 

REGEL 

300 

141 

REGEL 

1130 

89 


*** 

1 

I 

REGEL 

310 

163 

REGEL 

1140 

147 

9 

rem******************************* 

1 

| 

REGEL 

320 

85 

REGEL 

1150 

142 


*** 

j 

REGEL 

REGEL 

330 

340 

183 

189 

REGEL 

REGEL 

1200 

1210 

99 

126 

100 

print"[SHIFT-CLR]":poke52,48:poke5 

I 

I 

REGEL 

350 

6 

REGEL 

1220 

49 


6,48:clr:gosub950:gosub860 

1 

| 

REGEL 

355 

239 

REGEL 

1230 

209 

105 

ap=3:vl=l :pt=0 :poke53281,0:poke532 

1 

REGEL 

360 

136 

REGEL 

1240 

46 


80, 0 

1 

REGEL 

370 

27 

REGEL 

1250 

85 

110 

sv=int(2*rnd(0)+1) 

1 

REGEL 

380 

49 

REGEL 

1260 

44 

115 

sl=0:on sv gosub 535,670 : gosub405 

1 

I 

REGEL 

390 

153 

REGEL 

1270 

151 

120 

x=bl:y=b2 : s=b3 : sl=b4:s2=b5 : s3=b6 : s 

1 

| 

REGEL 

400 

45 

REGEL 

1280 

30 


4=b7:s5=b8:w=x:wl=y:w2=s:w3=sl:w4= 

| 

REGEL 

REGEL 

410 

420 

163 

93 

REGEL 

1290 

248 


s2:w5=s3 

1 

REGEL 

430 

13 




125 

w6=s4:w7=s5:sc=1024 : cc=55296 : as=0 : 

1 

I 

REGEL 

440 

147 





kn=35 : sk=5 : ck=2 

1 

| 

REGEL 

450 

243 




130 

rem********* hoofdlus 

1 

REGEL 

460 

124 




135 

j=peek(56320) : kn=kn+l : ifkn=37thenk 

1 

REGEL 

470 

74 





n=35 

1 

REGEL 

480 

79 




140 

ifan=lthenda=da+l : ifda=25thenan=0 : 

1 

REGEL 

490 

90 





sk=5 : ck=2 

1 

| 

REGEL 

REGEL 

500 

510 

108 

218 




145 

dx= (( j=123) -( j=119) ) : dy= ((j =12 6 )-( 

1 

REGEL 

520 

173 





j=125)) 

1 

I 

REGEL 

530 

106 




150 

x=x+dx:y=y+dy:b=peek(sc+x+40*y) 

1 

| 

REGEL 

540 

206 




155 

ifb=40thenx=w:y=wl 

1 

REGEL 

550 

119 




160 

ifb=39thenpt=pt+5:as=as+l 

1 

REGEL 

560 

157 




165 

ifb=38thenpt=pt+10 : an=l : da=0 : sk=2 : 

1 

REGEL 

570 

203 





ck=5 : gosub490 

1 

I 

REGEL 

REGEL 

580 

590 

203 

60 




170 

ifb=41thenpt=pt+25 : sl=sl+l : gosub50 

C 

1 

1 

REGEL 

600 

110 





3 

1 

REGEL 

610 

211 




175 

ifrnd(0)<vl/10thengosub260 

1 

REGEL 

620 

124 




180 

ifx=sthenify=slthengosub315 

1 

I 

REGEL 

630 

159 




185 

ifx=s2thenify=s3thengosub330 

1 

| 

REGEL 

640 

118 




190 

ifx=s4thenify=s5thengosub345 

1 

REGEL 

650 

36 




195 

gosub405 

1 

REGEL 

RF.GF.T, 

660 

670 

49 

89 




200 

v=(sv=landas>=25andsl>=l)and(x>=20 

1 

I 

REGEL 

680 

33 





andx<=21andy>=2 2) 

1 







205 

ifvthengosub375 : gotoll5 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 







o 


O 

- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 

o 

210 

v=(sv=2andas>=25andsl>=l)and(x>=4a 

430 

pokesi+1,int(76*rnd(0)+70):next:po 



ndx<=5andy>=22 ) 


kesi+4,0:poke53281,2:poke53280,7:p 


215 

ifvthengosub375:gotoll5 


rint"[SHIFT-CLR] " 


220 

if ap=0thenpr int " [SHIFT-CLR] " :goto4 

435 

bo=int(1000*rnd(0)+100) 

o 


60 

440 

printtab(9) " [CTRL-2][4xCRSR-D0WN]a 


225 

rein******* plot karakters 


11e[SPACE]levels[SPACE]gehaald! ! [2 


230 

pokesc+w+40*wl,32:pokesc+w2+40*w3. 


xCRSR-DOWN] " :printtab(13)"bonus:"b 



32:pokesc+w4+40*w5,32:pokesc+w6+40 


o 

o 


*w7,32 

445 

pt=pt+bo 

J 

235 

pokesc+x+40*y,kn:pokesc+s+40*sl,37 

450 

goto 465 



:pokesc+s2+40*s3,37:pokesc+s4+40*s 

455 

rem**** spel einde 



5, 37 

460 

printtab(10) " [CTRL-8][4xCRSR-DOWN] 

o 

240 

pokecc+x+40*y,sk:pokecc+s+40*sl, ck 


g [ SPACE ] a [ SPACE ] m [ SPACE ] e [ SPACE ] - [ 


:pokecc+s2+40*s3,ck:pokecc+s4+40*s 


SPACE ] o [ SPACE ] v [ SPACE ] e [ SPACE ] r " 



5, ck 

465 

printtab(9) " [CTRL-2][2xCRSR-DOWN]j 


245 

w=x:wl=y:w2=s:w3=sl:w4=s2:w5=s3:w6 


ouw[SPACE]score[SPACE]is:"mid$(str 



=s4:w7=s5:gotol35 


$(pt),2) 

o 

250 

rern******* beweeg routine 

470 

print"[3xCRSR-D0WN][2xCRSR-RIGHT][ 


255 

rein******* spook 1 


CTRL-8 ] druk [ SPACE]op [ SPACE ] vuurkno 


260 

m=sgn(x-s):ml=sgn(y-sl) 


p [ SPACE]voor [ SPACE ] een[SPACE]nieuw 


265 

s=s+m:sl=sl+ml:ifpeek(sc+s+40*sl) = 


[SPACE]spel" 

o 


40thens=w2:sl=w3 

475 

ifpeek (56320) Olllthen475 

270 

rein******* spook 2 

480 

gotol05 


275 

m2=sgn(x-s2):m3=sgn(y-s3) 

485 

rem*** geluid voor krachtpil 


280 

s2=s2+m2:s3=s3+m3:ifpeek(sc+s2+40* 

490 

pokesi+4,33 

c\ 


s3)=40thens2=w4:s3=w5 

495 

forp=10to35:pokesi+1,p : next:pokesi 


285 

rein******* spook 3 


+4,0 : return 


290 

m4=sgn(x-s4 ) :m5=sgn(y-s5) 

500 

rern******* geluid bij sleutel 


295 

s4=s4+m4 : s5=s5+m5 : ifpeek(sc+s4+40* 

505 

pokesi+4,33 



s5)=40thens4=w6 : s5=w7 

510 

forp=15tol00 : pokesi+1,p:next:pokes 

O 

300 

return 


i+4,0 : return 


305 

rein******* botst-routine 

515 

rern******** spook/monster dood 


310 

rern******* spook 1 

520 

pokesi+4,33 


315 

ifan=lthenpt=pt+50 : s=b3 : sl=b4 : goto 

525 

forp=15tol75:pokesi+l, rnd(0) *p:nex 

o 


520 


t : pokesi+4,0 : return 


320 

goto 360 

530 

rem****** speelveld 1 


325 

rein******* spook 2 

535 

print"[SHIFT-CLR][HOME][COM-2] (((( 


330 

ifan=lthenpt=pt+50 : s2=b5 : s3=b6 : got 


(((((((((((((((((((((((((((((((((( 



o520 


<" 

u 

335 

goto 360 

540 

print"([37xSPACE](" 


340 

rein******* spook 3 

545 

print"([37xSPACE](" 


345 

ifan=lthenpt=pt+50:s4=b7:s5=b8:got 

550 

print"(((((((((((((((((((((((((((( 



o520 


(((<(((((((" 

O 1 

350 

goto 360 

555 

print"([SPACE]([4xSPACE]([6xSPACE] 


355 

rein******* speler dood 


([9xSPACE]([5xSPACE](((([4xSPACE]( 


360 

gosub520 


" 


365 

ap=ap-l:x=bl:y=b2: sl=0 : da=0 : as=0 :a 

560 

print"([SPACE](((([SPACE]([4xSPACE 

o 


n=0:return 


]((([9xSPACE](((([2xSPACE](((([4xS 


370 

rein******* bepaal level 


PACE](" 


375 

poke53281,0:vl=vl+l:ifvl=21thengot 

565 

print"([6xSPACE]([4xSPACE]([14xSPA 



o420 


CE]([5xSPACE]((([2xSPACE](" 

o 

380 

pokesi+4,33:forp=0tol25:poke53281, 

570 

print"([SPACE](((((([2xSPACE]((([1 


rnd(0)*15 : pokesi+1,rnd(0)*200 : next 


4xSPACE] ((( [3xSPACE] ((( [2xSPACE] (" 


385 

pokesi+4,0 : poke53281,0 

575 

print" ( [SPACE] ( [7xSPACE] ( [4xSPACE] 


390 

sv=sv+l : ifsv=3thensv=l 


(((((((((( [4xSPACE] ( [3xSPACE](([3x 

r^\ I 

395 

return 


SPACE](" 

O 

400 

rein******* status 

580 

print"([SPACE]([SPACE]((([SPACE] ([ 


405 

print"[HOME][CRSR-DOWN][CRSR-RIGHT 


3xSPACE] (( [SPACE]([6xSPACE] ( [SPACE 



] [COM-7]level : "vl"[SPACE]levens : "a 


]( [SPACE] ([ 4xSPACE] ( [SPACE] (( [3xSP 



p"[2xCRSR-RIGHT]aantal[SPACE][CTRL 


ACE] (" 

O i 


8] ' [COM-7] : "as"[CRSR-LEFT][2xSPAC 

585 

print" ( [SPACE] ( [SPACE] ( [3xSPACE] ([ 

I 


E]" 


SPACE] ( [SPACE] (( [SPACE] ( [SPACE] ((( 

1 

410 

print"[CRSR-RIGHT][COM-7 ] score : "pt 


[2xSPACE] ( [SPACE] ( [SPACE] ( [SPACE] ( 

1 


;tab (15)"sleutel[s] : "sl : return 


[2XSPACE] ([ 6xSPACE] (" 

O 

415 

rem* alle twintig levels gehaald 

590 

print" ( [3xSPACE] ( [SPACE] ((( [SPACE] 


420 

pokesi+4,33 


([SPACE] ([4xSPACE] ([4xSPACE] ( [5xSP 


425 

forp=0to75:poke53281,int(15*rnd(0) 


ACE]([2xSPACE](( ( [4xSPACE] (" 

O 


+1):poke53280,int(7*rnd(0)+l) 

595 

print" ((((([SxSPACE]( [SPACE] ( [SPAC 

1 

■■ 1 

42 
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- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


E]([SPACE]([2xSPACE]([2xSPACE]([2x 
SPACE]([2xSPACE]([9xSPACE](" 

600 print"([5xSPACE]([3xSPACE]([3xSPAC 
E]([SPACE]([2xSPACE](((([2xSPACE]( 
j [2xSPACE]([4xSPACE]([4xSPACE](" 

I 605 print"([5xSPACE]([3xSPACE]((([SPAC 
E]([SPACE]([8xSPACE]([SPACE](([4xS 
! PACE]([4XSPACE](" 

610 print"([3xSPACE] ((([SPACE] ( ( ( [3xSP 
ACE](((((((((((([2xSPACE]( ( ( ([SPAC 
E]((([2xSPACE](" 

I 615 print"([3xSPACE]([30xSPACE]([2xSPA 
CE] (" 

620 print"([3xSPACE]([SPACE]((([SPACE] 
(((((((((([llxSPACE](([2xSPACE]([2 
I xSPACE](" 

625 print"([3xSPACE]([SPACE]((([SPACE] 
(((((([öxSPACE] (((((((([SPACE] ( [3x 
SPACE]([2xSPACE](" 

I 630 print"([7xSPACE]([SPACE]([7xSPACE] 
(((((([5XSPACE]([SPACE]([6xSPACE]( 

II 

635 print"([7xSPACE]([22xSPACE]([6xSPA 
CE] (" 

640 print"([3xSPACE]((([SPACE]((([SPAC 
E] (((((((([2xSPACE] (((((([SPACE] (( 
([SPACE]((([2xSPACE](" 

645 print"([3xSPACE]((([12xSPACE]([2xS 
PACE]([lOxSPACE]((([2XSPACE](" 

650 print"([3xSPACE](((((((([7xSPACE]( 
[CTRL-5](([COM-2]([5xSPACE]((((((( 
<(((" 

I 655 print"(((((((((((((((((((((((((((( 

((((((((((([HOME]" 

660 bl=4:b2=4:b3=9:b4=20:b5=19:b6=4:b7 
=30:b8=20:goto805 
| 665 rem***** speelveld 2 

I 670 print"[SHIFT-CLR][HOME][COM-2](((( 

(((((((((((((((((((((((((((((((((( 

(" 

675 print"([37xSPACE](" 

680 print" ( [37xSPACE] (" 

685 print"(((((((((((((((((((((((((((( 

((((((<(((<" 

690 print"([13xSPACE] ([8xSPACE] ( ( ( [SPA 
CE]([5xSPACE]([4xSPACE](" 

695 print"((((((((((((([SPACE]([9xSPAC 
E]([2xSPACE]([SxSPACE]([4xSPACE](" 
700 print"([llxSPACE]([SPACE]([2xSPACE 
](((((([SPACE]([SPACE](([2xSPACE]( 
([6xSPACE] (" 

705 print"([SPACE]((((((((([SPACE]([SP 
ACE] ([2xSPACE] ([4xSPACE] ([SPACE] ( [ 
SPACE] ([3xSPACE] ([2xSPACE] ((( ( [SPA 
CE] (" 

710 print"([SPACE]([7xSPACE]([SPACE]([ 
SPACE]([2xSPACE]([SPACE]([2xSPACE] 

([SPACE]([3xSPACE]((([7xSPACE](" 

I 715 print"([9xSPACE]([SPACE]([SPACE]([ 
2xSPACE]([SPACE]([2xSPACE]([SPACE] 
((([SPACE](((((([SPACE]((((" 

720 print"([SPACE]((((((((([SPACE]([SP 
ACE] ( ( ( ([SPACE] ( ( ( ([SPACE] (( ([SPAC 
1 E]([4XSPACE]([2xSPACE](((" 

725 print"([SPACE]([9xSPACE]([llxSPACE 
]((([SPACE]([SPACE]([2xSPACE]([2xS 
I PACE](((" 

j 730 print"([SPACE]([9XSPACE]([2xSPACE] 


((([lOxSPACE]([SPACE]([2xSPACE](([ 
3xSPACE](" 

735 print"([SPACE]((((((((((([2xSPACE] 

([4xSPACE]((((((((([SPACE](([SPACE 
] (((([SPACE] (" 

740 print"([14xSPACE]([SPACE]([2xSPACE 
]([12XSPACE]({[3xSPACE](" 

745 print"([12xSPACEJ ([SPACE]([SPACE]( 
[2xSPACE] ([2xSPACE] (((((((((((( [3x 
SPACE](" 

750 print”([12xSPACE]([3xSPACE]([10xSP 
ACE]([5xSPACE](([2xSPACE](" 

755 print”([7xSPACE] (((([SPACE] ((((((( 
((([2xSPACE](([SPACE]([9xSPACE](" 
760 print"([lOxSPACE](((((((((([7xSPAC 
E] ((([7xSPACE] (" 

765 print"((((((((([15xSPACE](([2xSPAC 
E] ( ( ( [7xSPACE] (" 

770 print"(([6xSPACE]([15xSPACE](([4xS 
PACE]([5xSPACE]([SPACE](" 

775 print"(([SPACE]([2xSPACE]([SPACE]( 
[SPACE](((((((((((([SPACE]((((([SP 
ACE] ( ([5xSPACE] ([SPACE] (" 

780 print"([2xSPACE]([2xSPACE]([SPACE] 

([9xSPACE](((([SPACE]((((([6xSPACE 
] ((([SPACE] (" 

785 print"([2xSPACE]([CTRL-5](([COM-2] 

([5xSPACE]((((([21xSPACE](” 

790 print"(((((((((((((((((((((((((((( 
((((((((((([HOME]" 

795 bl=3:b2=12:b3=6:b4=18:b5=18:b6=16: 
b7=35:b8=21 

800 rem***** plot pil/krachtpil/sleute 

1 

805 for r=0to50 

810 x=int(37*rnd(0)+1):y=int(20*rnd(0) 
+4):ifpeek(1024+x+40*y)<>32then810 
815 poke55296+x+40*y,7:pokel024+x+40*y 

,39:next 
820 forr=0to5 

825 x=int(37*rnd(0)+1):y=int(20*rnd(0) 
+4) 

830 ifpeek(1024+x+40*y)<>32then825 
835 pokel024+x+40*y,41:poke55296+x+40* 

y,3:next 

840 for r=0to6 

845 x=int(37*rnd(0)+1):y=int(20*rnd(0) 
+4):ifpeek(1024+x+40*y)<>32then845 
850 pokel024+x+40*y,38:poke55296+x+40* 

y,12:next:return 
855 rem****titelscherm 
860 printchr$(8)chr$(142) 

865 poke53281,0:poke53280,0:print"[SHI 

FT CLR][HOME]"; 

870 printtab(15)"[CRSR-DOWN][COM-1]((( 

(((((((" 

875 print"[CRSR-DOWN][7xCRSR-RIGHT]((( 
((((([SPACE][CTRL-8]key)maze[COM-1 
] [SPACE] ((((((((":printtab(15)"[CR 
SR-DOWN]((((((((((" 

880 printtab(11)"[2xCRSR-DOWN][CTRL-2] 
door:[SPACE]yerrel[SPACE]kasmin" 
885 print"[3xCRSR-DOWN][CTRL-6][7xCRSR 
-RIGHT]#...[COM-6]speler[7xSPACE][ 
CTRL-3]%...[COM-6]spook" 

890 print"[CRSR-DOWN][7xCRSR-RIGHT][CO 
M 8]&...[COM-6]krachtpil[4XSPACE][ 
CTRL-8]'...[COM-6]pil" 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


!l 

- PRINT OUT - 

PRINT OUT - PRINT OUT - PRINT OUT 

- PRINT 

| 

O 

i 

i 

i 

i 

895 

printtab(14)" 

[CRSR-DOWN][CTRL-4]). 

960 poke56334,peek(56334)and254 rpokel. 

i 

i 

o 

i 



[COM-6]sleutel" 


peek(1)and251 



| 


i 

900 

printtab(12)" 

[2xCRSR-DOWN][COM-3]# 

965 forx=0to511:poke!2288+x,peek(53248 

i 


/ 


L SP ace J druk [ SP ACE] op [ SPACE] vuurkno 

+x) 

:nextx 



i 


i 


p[SPACE]#" 



970 pokel,peek(1)or4:poke56334,peek(56 

i 

o 

i 

905 

for x=0to20 



334)orl:poke53272,(peek(53272)and2 

1 

i 

910 

r= 

int(990*rnd(0)+1):ifpeek(1024+r) 

40)+12 



| 


1 


<>32then910 



975 forka=35to41:forby=0to7:readd 

i 



915 

pokel024+r,39 

:poke55296+r 

4:next:d 

980 poke!2288+(8*ka)+by,d:nextby,ka:re 

i 


i 


x= 

1 :x=0:bx=x: 

cn=35 


turn 



1 

O 

i 

920 

poke56216+x, 5 

:poke!944+bx 

32:pokel 

985 data 129,66,60 

, 90, 255,189 

,66,60 

1 

| 




944+x,cn 



990 data 0,195, 60, 

90,255,255, 

66 , 60 

i 


1 

925 

bx 

=x:ifpeek(56320)=lllthenreturn 

995 data 60,90,126 

,231,90,60, 

90,153 

i 



930 

x= 

x+dx:ifx<=0orx>=39thendx=-dx 

1000 data 0, 60, 110, 

94, 94, 94,60 

, 0 

i 

o 

i 

935 

cn 

=cn+l:ifcn= 

37thencn=35 


1005 data 0,0,24,60 

,60,24,0,0 


1 


i 

940 

forp=0tol75:next:goto920 


1010 data 231,195,165,24,24,165,195.231 

i 



945 

rem*** init. 

****** 


1015 data 0,2,37,45 

, 125,7,2,0 


i 


1 

950 

printtab(215) 

"geduld. 

" 





! 

o 

i 

955 

si 

=54272:forx 

=sitosi+24:pokex,0:ne 

EINDE LISTING kev rnaze 


1 

i 


xt 

:pokesi+0, 100::pokesi+6 

250:poke 


- 1 - 



| 


i 


si+24,15 







1.' 

1 

o 


■1 




Checksum Key Ma ze 



‘1 

1 

| 


REGEL 

1 

35 

REGEL 310 

114 

REGEL 565 

29 

REGEL 820 

142 

1 



REGEL 

2 

65 

REGEL 315 

161 

REGEL 570 

133 

REGEL 825 

176 

1 



REGEL 

3 

55 

REGEL 320 

34 

REGEL 575 

133 

REGEL 830 

137 

1 

o 


REGEL 

4 

112 

REGEL 325 

115 

REGEL 580 

93 

REGEL 835 

16 

1 


REGEL 

5 

80 

REGEL 330 

217 

REGEL 585 

133 

REGEL 840 

143 




REGEL 

6 

165 

REGEL 335 

34 

REGEL 590 

13 

REGEL 845 

117 

| 



REGEL 

7 

113 

REGEL 340 

116 

REGEL 595 

13 

REGEL 850 

14 

| 



REGEL 

8 

158 

REGEL 345 

225 

REGEL 600 

229 

REGEL 855 

123 

1 

o 


REGEL 

9 

35 

REGEL 350 

34 

REGEL 605 

189 

REGEL 860 

152 

1 


REGEL 

100 

180 

REGEL 355 

166 

REGEL 610 

21 

REGEL 865 

29 

1 



REGEL 

105 

84 

REGEL 360 

36 

REGEL 615 

125 

REGEL 870 

49 

1 



REGEL 

110 

86 

REGEL 365 

159 

REGEL 620 

213 

REGEL 875 

129 

1 



REGEL 

115 

72 

REGEL 370 

210 

REGEL 625 

77 

REGEL 880 

54 

1 

r\ 


REGEL 

120 

160 

REGEL 375 

67 

REGEL 630 

189 

REGEL 885 

250 

1 



REGEL 

125 

150 

REGEL 380 

196 

REGEL 635 

125 

REGEL 890 

12 

1 



REGEL 

130 

109 

REGEL 385 

157 

REGEL 640 

61 

REGEL 895 

40 




REGEL 

135 

220 

REGEL 390 

101 

REGEL 645 

109 

REGEL 900 

105 

| 



REGEL 

140 

33 

REGEL 395 

142 

REGEL 650 

206 

REGEL 905 

193 

1 

o 


REGEL 

145 

101 

REGEL 400 

153 

REGEL 655 

8 

REGEL 910 

20 

1 


REGEL 

150 

121 

REGEL 405 

37 

REGEL 660 

160 

REGEL 915 

214 

1 



REGEL 

155 

184 

REGEL 410 

105 

REGEL 665 

55 

REGEL 920 

21 6 

1 



REGEL 

160 

90 

REGEL 415 

174 

REGEL 670 

48 

REGEL 925 

246 




REGEL 

165 

178 

REGEL 420 

163 

REGEL 675 

45 

REGEL 930 

10 9 

1 

o 


REGEL 

170 

252 

REGEL 425 

241 

REGEL 680 

45 

REGEL 935 

115 

1 


REGEL 

175 

246 

REGEL 430 

27 

REGEL 685 

245 

REGEL 940 

14 

1 



REGEL 

180 

118 

REGEL 435 

45 

REGEL 690 

29 

REGEL 945 

107 

1 



REGEL 

185 

167 

REGEL 440 

247 

REGEL 695 

173 

REGEL 950 

10 




REGEL 

190 

177 

REGEL 445 

53 

REGEL 700 

53 

REGEL 955 

161 

| 

o 


REGEL 

195 

38 

REGEL 450 

40 

REGEL 705 

77 

REGEL 960 

227 

1 



REGEL 

200 

143 

REGEL 455 

208 

REGEL 710 

229 

REGEL 965 

41 

1 



REGEL 

205 

14 

REGEL 460 

111 

REGEL 715 

253 

REGEL 970 

208 

1 



REGEL 

210 

52 

REGEL 465 

210 

REGEL 720 

21 

REGEL 975 

72 

j; 



REGEL 

215 

14 

REGEL 470 

33 

REGEL 725 

189 

REGEL 980 

147 

1 

o 


REGEL 

220 

114 

REGEL 475 

220 

REGEL 730 

149 

REGEL 985 

158 

1 



REGEL 

225 

156 

REGEL 480 

31 

REGEL 735 

101 

REGEL 990 

95 

1 



REGEL 

230 

90 

REGEL 485 

175 

REGEL 740 

245 

REGEL 995 

134 

1 



REGEL 

235 

27 

REGEL 490 

163 

REGEL 745 

173 

REGEL 1000 

188 


o 

n 

REGEL 

240 

76 

REGEL 495 

223 

REGEL 750 

245 

REGEL 1005 

15 

| 


REGEL 

245 

72 

REGEL 500 

98 

REGEL 755 

213 

REGEL 1010 

37 




REGEL 

250 

138 

REGEL 505 

163 

REGEL 760 

53 

REGEL 1015 

29 

1 



REGEL 

255 

114 

REGEL 510 

13 

REGEL 765 

53 



1 



REGEL 

260 

81 

REGEL 515 

232 

REGEL 770 

29 



1 

o 


REGEL 

265 

89 

REGEL 520 

163 

REGEL 775 

237 



I 


REGEL 

270 

115 

REGEL 525 

i 

REGEL 780 

133 



1 



REGEL 

275 

185 

REGEL 530 

96 

REGEL 785 

198 



1 



REGEL 

280 

97 

REGEL 535 

48 

REGEL 790 

8 



1 



REGEL 

285 

116 

REGEL 540 

45 

REGEL 795 

170 



1 



REGEL 

290 

193 

REGEL 545 

45 

REGEL 800 

163 



1 

o 


REGEL 

295 

121 

REGEL 550 

245 

REGEL 805 

190 






REGEL 

300 

142 

REGEL 555 

109 

REGEL 810 

109 






REGEL 

305 

148 

REGEL 560 

173 

REGEL 815 

27 
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Programma krantkolommer/64 


Roalt Aalmoes uit schagen vond dat er te weinig 
mogelijkheden waren om goed te kunnen printen 
met de commodore 64. Na veel denken, passen 
en meten kwam de volgende listing uit zijn han¬ 
den (computer). 

1 rem de krantkolommer 

2 rem door roalt aaloes van pfc 

3 rem schagen 

4 rem 

5 rem - 

10 gosub 50 

20 gosub 330 

30 gosub 360 

40 goto 760 

50 open4,4:print#4 

60 poke53280,1:poke53281,1:poke646,0 

70 printchr$(147) 

80 printchr$(14)chr$(8)"[SPACE]dit[SP 

ACE]is[SPACE]de[SPACE]krant-kolomm 
er[SPACE]van[SPACE]de[SPACE]pfc" 

90 print"[CRSR-DOWN][SPACE]geschikt[S 

PACE]voor[SPACE]elke[SPACE]printer 
...[2xSPACE]" 

100 print"[2xCRSR-DOWN][SPACE](tip:bij 
[SPACE]invoermode[SPACE][PIJL LI 
NKS]'=regel[SPACE]terug,[8xSPACE]' 
''=eind 

110 print"[7xSPACE]<space>+<return>=re 
gel[SPACE]overslaan)" 

120 print"[3xCRSR-DOWN][SPACE]hoeveel[ 

SPACE]kolommen[SPACE]wilt[SPACE]u[ 
SPACE]?" 

130 geta$:ifa$=""thenl30 
140 kl=val(a$):ifkl<landkl>10thenl30 
150 print"[CRSR-DOWN][SPACE]hoeveel[SP 
ACE]tekens[SPACE]per[SPACE]kolom[S 
PACE]wilt[SPACE]u[SPACE]?"; 

160 inputa$:tk=val(a$) 

170 if tk<5 or tk>36 then 150 

180 print"[CRSR-DOWN][SPACE]hoeveel[SP 

ACE]regels[SPACE]per[SPACE]kolom[S 
PACE]wilt[SPACE]u[SPACE]?"; 

190 input a$ 

200 rk=val(a$):if rk<3 or rk>150thenl 

80 

210 print"[3xCRSR-DOWN][SPACE]beschikt 

[SPACE]u[SPACE]over[SPACE]een[SPAC 
E]"tk*kl+kl*5+3 

220 prinfprinter [SPACE] ? (j/n) 

230 get a$:if a$=""then230 

240 if a$="j"then 260 

250 run 

260 if tk*kl+kl*5+3>255thenrun 

270 dim te$ (rk*kl+l),tk$(rk+1) 

280 input"[SPACE]printer[SPACE]command 

o" ; a$ 

290 a=int(val(a$)):if a<0ora>255then2 

80 

300 print#4,chr$(a) 

310 print"[CRSR-DOWN][SPACE]druk[SPACE 

]op[SPACE]een[SPACE]toet s" 

320 return 

330 pokel98,0 

340 waitl98,1:pokel98, 0 

350 return 


360 print"[SHIFT-CLR][2xCRSR-DOWN]"; 
370 ei=0 
380 rl=l 

390 gosubll70:gosub 930:if a=95 then 1 
140 

400 if rl>rk*kl-l and ei<lthen 390 
410 if len (te$ (rl)+tt$)<tk+lthente$(rl 
)=te$(rl)+tt$:goto440 
420 if len (te$(rl)+tt$)=tk+lthen470 

430 gosub 1080:te$(rl)=tt$ 

440 printtt$;:ifei=lthengosub 1080:te$ 

(rl)="":return 

450 if a=13 thengosubl080:tt$=tt$+"[SP 
ACE] " 

460 goto390 

470 te$ (rl)=te$(rl)+left$(tt$,len(tt$) 
-1):goto440 

480 print"[SHIFT-CLR][2xSPACE]tekst[SP 
ACE]lezen[SPACE]... 

490 print"[2xCRSR-DOWN][SPACE]<space>[ 
SPACE]=[SPACE]verder[SPACE]gaan 
500 print"[2xCRSR-DOWN] 

510 print"[4xCRSR-DOWN][2xSPACE]druk[S 
PACE]op[SPACE]een[SPACE]toet s[SPAC 
E]om[SPACE]te[SPACE]beginnen" 

520 gosub330 
530 rl=l 

540 printrl”:":printtab(4);te$(rl) 

550 if te$(rl)=""then 580 

560 gosub 330 

570 rl=rl+l:goto 540 

580 print"[CRSR-DOWN][SPACE]einde[SPAC 
E]tekst[SPACE]" 

590 print"[2xCRSR-DOWN][SPACE]nog[SPAC 
E]eens[SPACE]lezen[SPACE]?[SPACE]( 
j/n) " 

600 geta$:ifa$=""then 600 
610 if a$="n"thenreturn 
620 ifa$="j"then480 

630 goto600 

640 sp$="[60xSPACE]":vs$="[2xSPACE]" 

650 sp$=left$(sp$, tk+5) 

660 print"[SHIFT-CLR][SPACE]koloms[SPA 
CE]maken[SPACE]..." 

670 for nr=ltork 

680 tp$(nr)=vs$+te$(nr)+left$(sp$,len( 
sp$)-len(te$(nr))) 

690 if kl<2thennextnr:goto730 
700 fori=ltokl-l 

710 tp$(nr)=tp$(nr)+te$(nr+rk*i)+left$ 
(sp$,len(sp$)-len(te$(nr+rk*i))) 
720 nexti:nextnr 

730 print"[4xCRSR-DOWN][SPACE]koloms[S 
PACE]gemaakt...[3xCRSR-DOWN]druk[S 
PACE]op[SPACE]een[SPACE]toets" 

740 gosub330 
750 return 

760 print"[SHIFT-CLR][lOxSPACE]keuze-m 
enu 

770 print"[3xCRSR-DOWN][SPACE]1][SPACE 
]tekst[SPACE]lezen 

780 print"[2xCRSR-DOWN][SPACE]2][SPACE 
]tekst[SPACE]kolommeren[SPACE]en[S 
PACE]afdrukken 

790 print"[2xCRSR-DOWN][SPACE]3][SPACE 
]nieuwe[SPACE]tekst[SPACE]invoeren 
800 print"[2xCRSR-DOWN][SPACE]4][SPACE 
]terug[SPACE]naar[SPACE]basic 
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810 

print"[4 xCRSR-DOWN] [SPACE]maak[SPA 

CE]uw[SPACE]keu z e 

1040 

iflen(tt$)<tk*kl+lthentt$=tt$+a$:g 
osubllOO:g=g+l 

820 

get a$:ifa$=""then820 

1050 

goto940 

830 

if a$="l"thengosub480:goto760 

1060 

if len(tt$)>tk*kl+lthentt$=left$(t 

840 

if a$="2"then870 


t$,len(tt$)-1):goto940 

850 

if a$="3"then print#4:close4:run 

1070 

return 

860 

if a$="4"thensys64738 

1080 

rl=rl+l:print 

870 

gosub 640:print"[SHIFT-CLR][CRSR-D 

1090 

return 


OWN][SPACE]printen[SPACE]..." 

1100 

if a>64anda<96thena=a-64:gotoll20 

880 

print#4,"[SPACE]de[SPACE]krant[SPA 

1110 

ifa>191thena=a-128:gotoll20 


CE]kolommer[SPACE]pfc":print#4:pri 

1120 

pokeg+1024, a 


nt#4:print#4:fora=ltork 

1130 

return 

890 

print#4,tp$(a):print"[HOME]regel:" 
a 

1140 

print"[CRSR-UP]":print"[39xSPACE]" 

:print"[CRSR-UP] 

900 

nexta 

1150 

if te$(rl)=""andrl>lthenrl=rl-l:pr 

910 

print#4:print#4:print#4:print#4 


int"[CRSR-UP]:gotoll40 

920 

goto7 60 

1160 

te$ (rl)="":goto390 

930 

tt$="":g=0:fora=0to36:pokel024+a, 3 

2 :next 

1170 

rl$=str$(rl):pokel063,32:pokel062, 
32:pokel061,32:pokel060,18 

940 

geta$:ifa$=""then 940 

1180 

pokel063,val(right$(rl$,1))+48:ifr 

950 

a=asc (a$) 


KI Othenreturn 

960 

if a$=" '"thenei=l:gotol060 

1190 

rl$=left$(rl$,len(rl$)-1) 

970 

if a$="[PIJL LINKS]"thenreturn 

1200 

pokel062,val(right$(rl$,1))+48:ifr 

980 

ifa=20andlen(tt$) >0thentt$=left$ (t 


1 <10Othenreturn 


t$,len(tt$)-1) : g=g-l:pokeg+1024,32 

1210 

rl$=left$(rl$,len(rl$)-1) 

990 

ifa=20then940 

1220 

pokel061,val(right$(rl$,1))+48:ret 

1000 

1010 

ifa=13andlen(tt$)>0thenl060 
ifa<32 then940 


urn 

1020 

1030 

ifa>127 and a<161 then940 
ifa=32andlen(tt$) >0thentt$=tt$+" [S 
PACE]":gotol060 

EINDE LISTING krantkolommer/64 


Checksum Krantkolommer 


REGEL 

i 

254 

REGEL 

360 

205 

REGEL 

760 

52 

REGEL 

1160 

1 

REGEL 

2 

184 

REGEL 

370 

112 

REGEL 

770 

133 

REGEL 

1170 

213 

REGEL 

3 

136 

REGEL 

380 

129 

REGEL 

780 

30 

REGEL 

1180 

158 

REGEL 

4 

185 

REGEL 

390 

76 

REGEL 

790 

43 

REGEL 

1190 

45 

REGEL 

5 

185 

REGEL 

400 

250 

REGEL 

800 

121 

REGEL 

1200 

205 

REGEL 

10 

242 

REGEL 

410 

112 

REGEL 

810 

73 

REGEL 

1210 

45 

REGEL 

20 

35 

REGEL 

420 

47 

REGEL 

820 

103 

REGEL 

1220 

18t 

REGEL 

30 

38 

REGEL 

430 

186 

REGEL 

830 

71 




REGEL 

40 

38 

REGEL 

440 

119 

REGEL 

840 

94 




REGEL 

50 

57 

REGEL 

450 

81 

REGEL 

850 

94 




REGEL 

60 

244 

REGEL 

460 

37 

REGEL 

860 

107 




REGEL 

70 

77 

REGEL 

470 

220 

REGEL 

870 

140 




REGEL 

80 

10 

REGEL 

480 

225 

REGEL 

880 

182 




REGEL 

90 

85 

REGEL 

490 

223 

REGEL 

890 

102 




REGEL 

100 

42 

REGEL 

500 

221 

REGEL 

900 

195 




REGEL 

110 

200 

REGEL 

510 

216 

REGEL 

910 

222 




REGEL 

120 

78 

REGEL 

520 

35 

REGEL 

920 

38 




REGEL 

130 

97 

REGEL 

530 

129 

REGEL 

930 

224 




REGEL 

140 

151 

REGEL 

540 

111 

REGEL 

940 

106 




REGEL 

150 

56 

REGEL 

550 

113 

REGEL 

950 

111 




REGEL 

160 

240 

REGEL 

560 

35 

REGEL 

960 

200 




REGEL 

170 

184 

REGEL 

570 

37 

REGEL 

970 

122 




REGEL 

180 

48 

REGEL 

580 

222 

REGEL 

980 

178 




REGEL 

190 

234 

REGEL 

590 

227 

REGEL 

990 

36 




REGEL 

200 

230 

REGEL 

600 

99 

REGEL 

1000 

192 




REGEL 

210 

167 

REGEL 

610 

105 

REGEL 

1010 

40 




REGEL 

220 

54 

REGEL 

620 

115 

REGEL 

1020 

150 




REGEL 

230 

98 

REGEL 

630 

31 

REGEL 

1030 

188 




REGEL 

240 

111 

REGEL 

640 

186 

REGEL 

1040 

185 




REGEL 

250 

138 

REGEL 

650 

3 

REGEL 

1050 

38 




REGEL 

260 

234 

REGEL 

660 

59 

REGEL 

1060 

43 




REGEL 

270 

7 

REGEL 

670 

6 9 

REGEL 

1070 

142 




REGEL 

280 

219 

REGEL 

680 

142 

REGEL 

1080 

156 




REGEL 

290 

220 

REGEL 

690 

45 

REGEL 

1090 

142 




REGEL 

300 

81 

REGEL 

700 

196 

REGET, 

1100 

112 




REGEL 

310 

42 

REGEL 

710 

242 

REGEL 

1110 

192 




REGEL 

320 

142 

REGEL 

720 

39 

REGEL 

1120 

188 




REGEL 

330 

149 

REGEL 

730 

233 

REGEL 

1130 

142 




REGEL 

340 

96 

REGEL 

740 

35 

REGEL 

1140 

104 




REGEL 

350 

142 

REGEL 

750 

142 

REGEL 

1150 

57 
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Programma ruimte landing 


De maker van dit spel Y.S Kasmin. De bedoeling 
van dit spel is om een ruimteschip veilig te laten 
landen. Het schip moet op het groene plekje lan¬ 
den met een snelheid dat niet hoger dan 20 mag 
zijn. Ook geldt dit voor de X positie van het ruim¬ 
teschip, X moet tussen de 140-en de 150 liggen. 
Voldoet de landing niet aan deze eisen dan volgt 
er een explosie waarbij de speler een schip ver¬ 
liest. Voldoet de landing wel aan deze eisen, dan 
gaat de speler naar een hoger level. De speler 
kan de X positie tijdens de landing zien door op 
de vuurknop te drukken, dit duurt ongeveer 9 se¬ 
conden waarna het verdwijnt. Deze functie kan 
alleen zes keer per 3 seconden worden gebruikt. 
Deze functie staat boven op het beeldscherm 
aangegeven in INFO. Is de speler 3 keer goed 
geland dan krijgt de speler bonus punten toege¬ 
kend plus 6 nieuwe INFO’s en het spelniveau 
wordt verhoogt. Dit spel heeft 1 tegenstander die 
sneller gaat achtervolgen bij elke level verande¬ 
ring, plus willekeurige rukwinden die ook heviger 
worden Dit spel heeft geen level grens. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 


175 

180 

185 

190 

195 

200 


**************************** 

* 

★ 

★ 

★ 

* 

* 

* 

* 


ruimte landing 
- * 

door 

yerrel kasmin 
voor: commodore-info 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 

rem**************************** 
printchr$(142):gosub405:hi=1000:go 
to460 

lv=l :pu=0 :sh=3: ag=0 :in=6:poke53281 
,O:poke53280,0 

print”[SHIFT-CLR]":gosub 385 
pokev+30,0:ifsh=0then345 
rem**** begin-positie initialisere 
n 

x=int(205*rnd(0)+50):y=50:xl=25:yl 
=50: dy=0 

pokev,x:pokev+1,y:pokev+2,xl:pokev 

+3,yl:pokev+21,3:pokes+4, 129 

rem******* hoofdlus ********* 

ifrnd(0)>(lv/10)thenl60 

dl=sgn(x-xl)*2:d2=sgn(y-yl)*2 

xl=xl+dl:yl=yl+d2 

pokev+2,xl:pokev+3,yl 

j=peek(56320):fr=jandlö:j=15-(jand 

15) 

if fr=0andin>=lthentc=l : ct=0 :in=in- 
1 

iftc=lthenct=ct+l:printin$tab(11)" 
[CTRL-9][CTRL-4][SPACE]x-positie:" 
x"[CRSR-LEFT][SPACE]" 
ifct=30thentc=0:printin$tab(11)wx$ 
ifpeek(v+30)=3thengosub310:gotoll5 
ifj=2thendy=dy+.2:pokes+l, 2 
ifj=lthendy=dy-.07:pokes+l, 4 
if j=0thendy=dy+ .08:pokes+l, 3 
ifrnd(0)>(lv/10)then220 


205 

210 

215 

220 

225 

230 


235 


240 

245 

250 

255 

260 

265 

270 

275 


280 

285 

290 

295 


300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 


360 

365 


370 

375 


380 

385 

390 

395 

400 

405 


r=int (rnd(0) *2)+1 
ifr=landx>50thenx=x-5 
ifr=2andx<250thenx=x+5 
ifj=4andx>50thenx=x-4 
ifj=8andx<250thenx=x+4 
printchr$(19)"[CTRL-2]score:"pu;ta 
b(17)"info:"in;tab(29)"level:"lv:p 
rint 

print"ruimteschip:"sh;tab(27)"snel 
heid:"int(dy*10)"[CRSR-LEFT][SPACE 
]" 

y=y+dy 

poke53248,x:poke5324 9, y 

ifint(y)>=185thengosub265:on(vl=l) 

+2gotoll0:gotoll5 

goto 140 

rem****** goede landing 

ct=30: tc=0 :ifx<140orx>150orint(dy* 

10)>20then310 

rx=x:pokev+5,205:pokev+21,7:pokes+ 
4,33 

fori=rxto0step-l :forp=40to30step-2 
:pokes+l,p:pokev+4,i:nextp, i:pokes 
+4,0 

pu=pu+25:lv=lv+l:ag=ag+l: vl=0 
ifag<>3thenreturn 

bo=int(rnd(0)* 5 0 0) :pu=pu+bo:print" 
[SHIFT-CLR]":pokev+21, 0 
print"[4xCRSR-DOWN][7xCRSR-RIGHT]j 
e[SPACE]bent[SPACE]3[SPACE]keer[SP 
ACE]goed[SPACE]geland" 
printtab(12)"[CRSR-DOWN]bonus:"bo" 
punten.": ag=0 :vl=l:in=6 
forp=0to2500:next:return 
rem**** slechte landing!!!! 
ct=30 :tc=0 :pokev+21,0: vl=0 : fori=0t 
o50 

poke53270, (peek(53270)and248)+7 

poke53265, (peek (53265)and248)+7 

pokes+1,int(rnd(0)*25)+1:poke53265 

,27:poke53270,200:nexti 

pokes+4,0:pokev+21, 0 

sh=sh-l:return 

rem***** game over 

poke53281, 9:poke53280,8:print"[SHI 

FT CLR]" 

printtab(10)"[CTRL-2]g[SPACE]a[SPA 
CE]m[SPACE]e[SPACE]-[SPACE]o[SPACE 
]v[SPACE]e[SPACE]r":print:print 
ifpu>hithenhi=pu 

print"[2xCRSR-RIGHT][CTRL-1]je[SPA 
CE]hebt[SPACE]'t[SPACE]volgehouden 
[SPACE]tot[SPACE]level:"lv:print:p 
rint:print 

pu$=mid$(str$(pu),2):hi$=mid$(str$ 
(hi),2) 

print"[2xCRSR-RIGHT][CTRL-8]score: 
"pu$;spc(9)"[SPACE]high[SPACE]scor 
e:"hi$:goto460 
rem****** teken speelveld 
fori=1904to2023:pokei,160:pokei+54 
272,2:next 

fori=56191to56197:pokei, 5:next 
fori=0to50:r=int (rnd(0) *879):pokel 
024+r,46:poke55296+r,1:next:return 
rem****** init. 

print"[SHIFT-CLR]":poke53281,0:pok 
e53280, 0 
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410 fori=0to62:readd:pokel2288+i, d:nex 

t 

415 fori=0to62:readd:pokel2352+i,d:nex 

t 

420 fori=0to62:readd:pokel2416+i, d:nex 
t 

425 poke2040,192:poke2041,193:poke2042 
,194:s=54272:v=53248 

430 fori=stos+24:pokei, 0:next:pokes, 10 
0:pokes+6,240:pokes+24, 15 
435 pokev+23,1:pokev+29,1:pokev+39, 3:p 
okev+40,8:pokev+41,7 
440 in$="[HOME][23xCRSR-DOWN]":rem*** 

in$=[home] [23xcrsr-down] 

445 wx$="[CTRL-9][CTRL-3][16xSPACE]":r 

em **** wx$=[ctrl-9] [ctrl-3] [16xs 
pace] 

450 return 

455 rem ****** titel 

460 printtab(247)"r[SPACE]u[SPACE]i[SP 
ACE]m[SPACE]t[SPACE]e[SPACE]-[SPA 
CE]1[SPACE]a[SPACE]n[SPACE]d[SPACE 
]i[SPACE]n[SPACE]g" 

465 printtab(58)"door"tab(93)"yerrel[S 
PACE]kasmin" 

470 printtab(92)"druk[SPACE]op[SPACE]v 

uurknop":wait56320,16, 16:gotol05 
475 rern******** sprite data' s 

480 rem***** ruimteschip 

485 data 32,127,4,32,8,4,33 

490 data 201,196,35,255,228,38,0 

495 data 52,47,129,252,63,129,252 

500 data 60,60,62,111,255,247,127 

505 data 255,255,106,126,87,127,255 

510 data 255,64,60,1,127,255,255 

515 data 127,1,255,63,255,254,3 

520 data 129,224,3,255,224,3,34 

525 data 112,127,65,127,127,128,255 

530 rem***** data insektoide 

535 data 1,0,128,0,129,0,0 

540 data 126,0,0,219,0,0,36 

545 data 0,0,24,0,3,255,192 

550 data 7,255,224,44,0,52,25 

555 data 255,152,17,255,136,32,0 

560 data 4,0,255,0,0,255,0 

565 data 0,0,0,0,126,0,0 

570 data 126,0,0,0,0,0,60 

575 data 0,0,24,0,0,0,0 

580 r em***** data robot 

585 data 0,15,1,0,63,193,0 

590 data 255,241,0,7,249,0,7 

595 data 249,0,255,241,0,15,1 

600 data 0,255,243,105,255,250,159 

605 data 0,94,152,0,92,79,255 

610 data 156,9,0,56,1,255,248 

615 data 0,255,240,0,31,128,0 

620 data 32,64,0,255,240,1,182 

625 data 216,1,182,216,0,255,240 

EINDE LISTING ruimte landing _ 


Checksum Ruimtelanding 


REGEL 

i 

39 

REGEL 

350 

224 

REGEL 

2 

227 

REGEL 

355 

56 

REGEL 

3 

182 

REGEL 

360 

1 

REGEL 

4 

89 

REGEL 

365 

216 

REGEL 

5 

23 

REGEL 

370 

110 

REGEL 

6 

121 

REGEL 

375 

163 

REGEL 

7 

227 

REGEL 

380 

166 

REGEL 

8 

97 

REGEL 

385 

116 

REGEL 

9 

227 

REGEL 

390 

105 

REGEL 

10 

39 

REGEL 

395 

108 

REGEL 

100 

67 

REGEL 

400 

237 

REGEL 

105 

188 

REGEL 

405 

207 

REGEL 

110 

215 

REGEL 

410 

178 

REGEL 

115 

219 

REGEL 

415 

170 

REGEL 

120 

182 

REGEL 

420 

171 

REGEL 

125 

184 

REGEL 

425 

116 

REGEL 

130 

199 

REGEL 

430 

117 

REGEL 

135 

147 

REGEL 

435 

192 

REGEL 

140 

183 

REGEL 

440 

127 

REGEL 

145 

105 

REGEL 

445 

251 

REGEL 

150 

3 

REGEL 

450 

142 

REGEL 

155 

56 

REGEL 

455 

13 

REGEL 

160 

234 

REGEL 

460 

115 

REGEL 

165 

169 

REGEL 

465 

92 

REGEL 

170 

45 

REGEL 

470 

190 

REGEL 

175 

230 

REGEL 

475 

74 

REGEL 

180 

8 

REGEL 

480 

174 

REGEL 

185 

179 

REGEL 

485 

245 

REGEL 

190 

234 

REGEL 

490 

249 

REGEL 

195 

232 

REGEL 

495 

48 

REGEL 

200 

180 

REGEL 

500 

37 

REGEL 

205 

255 

REGEL 

505 

152 

REGEL 

210 

198 

REGEL 

510 

250 

REGEL 

215 

250 

REGEL 

515 

197 

REGEL 

220 

192 

REGEL 

520 

192 

REGEL 

225 

247 

REGEL 

525 

143 

REGEL 

230 

76 

REGEL 

530 

106 

REGEL 

235 

202 

REGEL 

535 

179 

REGEL 

240 

171 

REGEL 

540 

233 

REGEL 

245 

126 

REGEL 

545 

236 

REGEL 

250 

174 

REGEL 

550 

92 

REGEL 

255 

30 

REGEL 

555 

242 

REGEL 

260 

236 

REGEL 

560 

183 

REGEL 

265 

193 

REGEL 

565 

68 

REGEL 

270 

168 

REGEL 

570 

122 

REGEL 

275 

1 

REGEL 

575 

17 

REGEL 

280 

173 

REGEL 

580 

1 

REGEL 

285 

223 

REGEL 

585 

184 

REGEL 

290 

113 

REGEL 

590 

43 

REGEL 

295 

200 

REGEL 

595 

84 

REGEL 

300 

215 

REGEL 

600 

88 

REGEL 

305 

162 

REGEL 

605 

103 

REGEL 

310 

192 

REGEL 

610 

102 

REGEL 

315 

156 

REGEL 

615 

76 

REGEL 

320 

87 

REGEL 

620 

136 

REGEL 

325 

95 

REGEL 

625 

235 

REGEL 

330 

33 




REGEL 

335 

180 




REGEL 

340 

140 




REGEL 

345 

183 





Programma sup.write 757 


Met dit programma is het, o wat een wonder, mo¬ 
gelijk teksten te schrijven. Niet gewoon, maat al¬ 
les wat wordt getypt is weg te schrijven naar een 
diskette. Deze tekst is later weer te laden en ver¬ 
schijnt dan weer exact op dezelfde wijze als zij is 
ingegeven weer op het beeldscherm. Inclusief 
alle eventueel uitgevoerde correcties. Een pro¬ 
gramma dus dat uitnodigt om te gaan 
experimenteren. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 


rem ************************* 
rem *** super-writer 64 *** 

rem ************************* 
rem *** geschreven door *** 
rem *** jim v/d heyden. *** 
rem *** *** 

rem *** breda *** 

rem ************************* 
print"[SHIFT-CLR]data[SPACE]lezen[ 
SPACE]kost[SPACE]even[SPACE]tijd[S 
PACE]in[SPACE]basio" 
forq=0to496 
reada:poke49152+q, a 
c=c+a:next 

ifc<>62360thenprint"fout[SPACE]in[ 

SPACE]data":end 

sys49152 

datal69,128,141,138,2,169,0,141, 32 
,208,141,33,208,141,255,2 
datal41,0,3,169,32,133,177,162,0,1 
34,176,232,134,150,169,7 
datal41,134,2,32,68,229,169,128,16 
0,193,32,30,171,32,228,255 
data240,251,201,81,240,28,201,49,1 
44,243,201,53,176,239,56 
data233,49,10,170,189,85,192,141,8 
0,192,189,86,192,141,81,192 
data76,93,192,76,226,252,93,192,15 
0,192,224,192,3,193,32,68 
data229,32,201,192,32,228,255,240, 
248,164,150,208,2,230,177 
datal45,176,230,150,72,32,210,255, 
104,201,3,240,14,76,96,192 
datal62,255,160,25,202,208,253,136 
,208,250,96,165,150,141,255 
data2,165,177,141,0,3,76,19,192,32 
,68,229,164,150,208,2,230 
datal77,177,176,201,3,240,28,32,21 
0,255,32,201,192,230,150 
datal60,255,162,5,136,208,253,202, 
208,250,32,228,255,201,3 
data208,219,7 6,19,192,32,228,255,2 
40,251,76,19,192,164,211 
datal77,209,9,128,145,209,32,126,1 
92,164,211,177,209,41,127 
datal45,209,32,126,192,96,32,92,19 
3,162,8,160,1,32,186,255 
datal65,151,162,240,160,193,32,189 
,255,169,0,32,213,255,169,2 
data32,195,255,32,231,255,76,19,19 
2,173,0,3,208,3,76,19,192 
data32, 92,193,160,1,169,2,162,8,32 
,186,255,165,151,162,240 
datal60,193,32,189,255,32,192,255, 
162,2,32,201,255,169,0,133 
data251,32,210,255,169,32,133,252, 
32,210,255,160,0,177,251,32 
data210,255,230,251,208,2,230,252, 
165,252,205,0,3,208,236,165 
data251,205,255,2,208,229,169,2,32 
,195,255,32,231,255,76,19 
datal92,32,68,229,169,0,133,151,16 
9,224,160,193,32,30,171,32 
data228,255,240,251,72,32,210,255, 
104,166,151,157,240,193,230 
datal51,201,13,208,235,96,49,32,78 
, 73, 69, 85, 87, 69,32,84, 69, 75 
data83, 84, 32,77, 65, 75, 69, 78, 13,50, 


32,79,85,68,69,32,84,69,75 
102 6 data83,84,32,76,65, 84,69, 78,32, 90, 
73, 69, 78, 13, 51, 32, 76, 65, 68 

1027 data69,78,13,52,32,83, 65,86, 69,78, 
13, 81,32,81,85,73,84,13,82 

1028 data85,78,47,83,84,79,80,32,61,32, 
84,69,82,85,71,32,78,65,65 

1029 data82,32,77,69,78,85,13,0,84,89,8 
0,69,32,70,73,76,69,78,65 

1030 data65,77,13,13,0,0 

EINDE LISTING sup.write 757 _ 


Checksum Superwrite 757 


REGEL 

10 

169 

REGEL 

20 

142 

REGEL 

30 

169 

REGEL 

40 

169 

REGEL 

50 

31 

REGEL 

60 

111 

REGEL 

70 

233 

REGEL 

80 

169 

REGEL 

90 

155 

REGEL 

100 

251 

REGEL 

110 

6 

REGEL 

120 

223 

REGEL 

130 

96 

REGEL 

140 

163 

REGEL 

1000 

21 

REGEL 

1001 

230 

REGEL 

1002 

84 

REGEL 

1003 

233 

REGEL 

1004 

161 

REGEL 

1005 

61 

REGEL 

1006 

30 

REGEL 

1007 

69 

REGEL 

1008 

132 

REGEL 

1009 

30 

REGEL 

1010 

224 

REGEL 

1011 

226 


REGEL 

1012 

1 

REGEL 

1013 

48 

REGEL 

1014 

251 

REGEL 

1015 

137 

REGEL 

1016 

43 

REGEL 

1017 

241 

REGEL 

1018 

81 

REGEL 

1019 

111 

REGEL 

1020 

109 

REGEL 

1021 

43 

REGEL 

1022 

83 

REGEL 

1023 

124 

REGEL 

1024 

177 

REGEL 

1025 

142 

REGEL 

1026 

132 

REGEL 

1027 

119 

REGEL 

1028 

134 

REGEL 

1029 

87 

REGEL 

1030 

96 


Programma darts 


Het programma darts heeft tot functie het tellen 
van de score bij een Dart spel te vereenvoudi¬ 
gen. U Krijgt een duidelijke uitleg van het DARTS 
spel. Zo kan men lezen hoe een bord opgehan¬ 
gen moet worden hoe de puntentelling gaat en 
de spelregels moet worden uitgelegd. Er kunnen 
max 4 spelers worden ingevoerd. De inzender en 
schrijver van dit bestand is S.G. Lageman uit 
Amsterdam. 

1 rem darts program 

2 print"[SHIFT-CLR][2xCRSR-DOWN]comm 

odore[SPACE]64[2xSPACE]darts[SPACE 
]program[2xCRSR-DOWN][13xSPACE]voo 
r[SPACE]1[SPACE]tot[SPACE]4[SPACE] 
spelers[2xCRSR-DOWN]" 

3 input"zijn[SPACE]de[SPACE]spelrege 
ls[SPACE]bekend[SPACE]j/n";i$:prin 

t:if i$="n"then23 

4 print"[SHIFT-CLR][5xSPACE]spel[SPA 
CE]menu":print 

5 inpuf'hoeveel[SPACE]spelers";n:ifn 
>4 then goto 5 

6 forx=lton:print"[CRSR-DOWN]naam[SP 

ACE]speler[SPACE]"x;:input n$(x):n 
ext 
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7 print"[CRSR-DOWN]maak[SPACE]keuze[ 

SPACE]tussen[SPACE]301[SPACE]of[SP 
ACE]501";:inputs 

8 print"[SHIFT-CLR]":forx=lton:print 
n$ (x), :next:print 

9 forx=lton;s(x)=s:print"[SPACE]"s,: 
next:print 

10 forx=lton:inputsc(x) 

11 ts(x)=s(x)-sc (x) :ifts(x)=0thenprin 
t"[2xCRSR-D0WN]winnaar[SPACE]"n$(x 
):goto22 

12 ifts(x)>lthens(x)=ts(x) 

13 ifx=lthenprint"[SPACE]"s(x) 

14 ifx=2thenprint,"[SPACE]"s(x) 

15 ifx=3thenprint,,"[SPACE]"s(x) 

16 ifx=4thenprint,,,"[SPACE]"s(x) 

17 ifx=lthenprint"[2xCRSR-UP]", 

18 ifx=2thenprint"[2xCRSR-UP]" , , 

19 ifx=3thenprint"[2xCRSR-UP]",, , 

20 ifx=4thenprint"[2xCRSR-UP], 

21 next:print"[CRSR-DOWN]"rgotolO 

22 end 

23 rem spelregels 

24 print"[SHIFT-CLR][lOxSPACE]spelreg 
els[SPACE]darts":print 

25 prinfhang [SPACE] het [SPACE] dart [SP 

ACE]bord[SPACE]op[SPACE]zoals[SPAC 
E]de[SPACE]tekening[SPACE]laat[SPA 
CE]zien,[SPACE] 

26 print"en[SPACE]ga[SPACE]tijdens[SP 
ACE]het[SPACE]spel[SPACE]op[SPACE] 
de[SPACE]juiste[SPACE]afstand[SPAC 
E]staan.":print 

27 print"[2xSPACE][COM-L]":forx=lto4: 
print"[2xSPACE][COM-L][COM-K]":nex 
t:forx=lto5:print"[2xSPACE][COM-L] 

":next 

28 print"[2xSPACE][COM-L][23xCOM-P]": 

print"[3xSPACE]<-[SPACE]2,37[S 

PACE]meter[SPACE]—>" 

29 print"[HOME][9xCRSR-D0WN] A ";:print 
tab(4)"de[SPACE]rOOs[SPACE]1,72 [SP 
ACE]meter" 

30 forx=lto7:print"[SHIFT-]":next :p 
rint 

31 print"[2xCRSR-DOWN]druk[SPACE]retu 
rn[SPACE]voor[SPACE]de[SPACE]punte 
n[SPACE]telling" 

32 i$=" " : geti$ : ifi$Ochr$ (13) then32 

33 print"[SHIFT-CLR][lOxSPACE]darts[S 
PACE]punten[SPACE]telling":print 

34 prinf'de[SPACE]buitenste[SPACE]dun 
ne[SPACE]ring[SPACE]gee ft[SPACE]ee 
n[SPACE]dubbel[SPACE]score[3xSPACE 
] (2x)":print 

35 print"de[SPACE]binnenste[SPACE]dun 
ne[SPACE]ring[SPACE]geeft[SPACE]ee 
n [SPACE]triple[SPACE]score[3xSPACE 
](3x)";print 

3 6 print"de[SPACE]bul[SPACE] (roos) [SP 

ACE]geeft[SPACE]een[SPACE]dubbel[S 
PACE]score[4xSPACE]van[SPACE]25[SP 
ACE] (dus [SPACE] 50) " -.print 

37 print"de[SPACE]ring[SPACE]om[SPACE 
]de[SPACE]bul[SPACE](roos)[SPACE]g 
eeft[SPACE]een[6xSPACE]enkele[SPAC 
E]score[SPACE]van[SPACE]25":print 

38 print"alle[SPACE]overgebleven[SPAC 


E]vakken[SPACE]geven[SPACE]een[6xS 
PACE]enkele[SPACE]score[SPACE](lx) 

M 

39 print"[2xCRSR-DOWN]druk[SPACE]retu 
rn[SPACE]voor[SPACE]de[SPACE]spelw 

i jze" 

40 i$=" " : geti$ ; ifi$Ochr$ (13) then40 

41 print"[SHIFT-CLR][lOxSPACE]darts[S 
PACE]spelwijze":print 

42 print"u[SPACE]kiest[SPACE]tussen[S 
PACE]spel[SPACE]301[SPACE]en[SPACE 
]501":print 

43 print"men[SPACE]moet[SPACE]zo[SPAC 
E]snel[SPACE]mogelijk[SPACE]op[SPA 
CE]nul[SPACE]zien[3xSPACE]te[SPACE 
]komen":print 

44 prinf'hierbij[SPACE]moet[SPACE]de[ 
SPACE]laatse[SPACE]worp[SPACE]een[ 
SPACE]dubbel[2xSPACE]zijn":print 

4 5 print"per[SPACE]beurt[SPACE]mag[SP 

ACE]u[SPACE]drie[SPACE]darts[SPACE 
]gooien," 

4 6 print"om[SPACE]uit[SPACE]te[SPACE] 

gaan[SPACE]op[SPACE]nul[SPACE]ook[ 
SPACE]minder":print 

4 7 print"degene[SPACE]die[SPACE]2[SPA 

CE]van[SPACE]de[SPACE]3[SPACE]part 
ijen[SPACE]wint[SPACE]is[2xSPACE]d 
e [SPACE]kampioen" 

48 print"[2xCRSR-DOWN]druk[SPACE]retu 
rn[SPACE]voor[SPACE]spel[SPACE]men 

u" 

49 i$=" " : geti$ : ifi$Ochr$ (13) then49 

50 goto4 

EINDE LISTING darts 


Checksum Darts 


regel 

i 

37 

regel 

29 

10 

regel 

2 

59 

regel 

30 

26 

regel 

3 

240 

regel 

31 

205 

regel 

4 

172 

regel 

32 

201 

regel 

5 

213 

regel 

33 

170 

regel 

6 

231 

regel 

34 

222 

regel 

7 

122 

regel 

35 

244 

regel 

8 

1 

regel 

36 

11 

regel 

9 

14 

regel 

37 

196 

regel 

10 

172 

regel 

38 

150 

regel 

«1 

215 

regel 

39 

161 

regel 

12 

98 

regel 

40 

200 

regel 

13 

70 

regel 

41 

126 

regel 

14 

115 

regel 

42 

88 

regel 

15 

160 

regel 

43 

201 

regel 

16 

205 

regel 

44 

46 

regel 

17; 

152 

regel 

45 

255 

regel 

18 

197 

regel 

46 

36 

regel 

19 

242 

regel 

47 

66 

regel 

20 

31 

regel 

48 

196 

regel 

21 

206 

regel 

49 

209 

regel 

22 

128 

regel 

50 

188 

regel 

23 

133 




regel 

24- 

183 




regel 

25 

243 




regel 

2 6 

147 




regel 

27 

227 




regel 

28 

183 





50 


Commodore Info 4/89 


O 





- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


Programma woordtraining 


Eindelijk weer eens een educatief programma in 
deze rubriek. Na het intypen en runnen van dit 
spel heeft U een taal programma tot uw beschik¬ 
king. De uitleg is in het spel zelf opgenomen en 
het geheel is geschreven door G.H. Kemps uit 
Woerden. 


100 

rem 

************************"****** 

120 

rem 

kkk 

** 

140 

rem 


raamwerk voor het ** 

160 

rem 

yp 

kkk 

maken en oefenen van ** 

180 

rem 

"k 

*** 

moeilijke woorden ** 

200 

rem 

k 

•kleit 

** 

220 

rem 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

240 

rem 

k 

kkk 

★ k 

250 

rem 

* 

k kk 

door:g.h.kamp ** 

260 

rem 

k 

kkk 

k k 

280 

rem 

k 

kkk 

kk 

300 

rem 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

320 

rem 

k 

kkk 

k k 

340 

rem 

★ 

kkk 

gebruik power cartridge ** 

360 

rem 

k 

kkk 

is noodzakelijk ** 

380 

rem 

k 

kkk 

** 

400 

rem 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

420 

rem 

k 

kkk 

** 

440 

rem 

k 

kkk 

fouten verbeteren in de ** 

460 

rem 

k 

kkk 

oefening met de toets ** 

480 

rem 

k 

kkk 

k k 

500 

rem 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

520 




540 

pudef:rem *** runst/rest uit *** 

560 




580 

rem 

kkk 

codenummer *** 

600 

printchr$(147)chr$(14):dclear8,6,0 


:trapl 


620 

print" 

[ SPACE]Met[SPACE]dit[SPACE]t 


aalprogramma[SPACE]kunnen" 

640 

print" 

[SPACE]moeilijke[SPACE]woord 


en[SPACE]worden[SPACE]geoefend.":t 
rap2:print:print 

660 

print" 

[SPACE]Ieder[SPACE]kan[SPACE 


]zijn/haar[SPACE]eigen[SPACE]gewen 


ste" 

680 print"[SPACE]bestand(en)[SPACE]mak 
en,":trap2:print:print 
700 print"[SPACE]Om[SPACE]deze[SPACE]b 

estanden[SPACE]tegen[SPACE]verkeer 
d[SPACE]" 

720 print"[SPACE]gebruik[SPACE]van[SPA 
CE]anderen[SPACE]te[SPACE]beveilig 
en" 

740 print"[SPACE]moet[SPACE]gebruik[SP 

ACE]gemaakt[SPACE]worden[SPACE]van 
[SPACE]een":trap2:print:print 
760 print"[2xSPACE][CTRL-9][6xSPACE]o[ 

SPACE]n[SPACE]z[SPACE]i[SPACE]c[SP 
ACE]h[SPACE]t[SPACE]b[SPACE]a[SPAC 
E]a[SPACE]r[8xSPACE]":trapl 
780 print"[2xSPACE][CTRL-9][6xSPACE]c[ 

SPACE]o[SPACE]d[SPACE]e[SPACE]-[SP 
ACE]n[SPACE]u[SPACE]m[SPACE]m[SPAC 
E]e[SPACE]r[3xSPACE][5xSHIFT-SPACE 
][CTRL-0]":trap2 

800 print:print"[SPACE]Typ[SPACE]nu[SP 

ACE]een[SPACE]nummer[SPACE]+[SPACE 
]RETURN";:printchr$(129);:input co 
de 

820 print:printchr$(144)"[SPACE]OK, [SP 
ACE]gebruik[SPACE]dit[SPACE]nummer 
" :trapl 

840 print"[SPACE]als[SPACE]daarom[SPAC 
E]wordt[SPACE]gevraagd!":trap2:pri 
nt 

860 print:print"[2xSPACE][CTRL-9][SPAC 
E]druk[SPACE]een[SPACE]toets[20xSP 
ACE] " 

880 getk$:ifk$="" then 880 
900 

920 rem *** titelpagina *** 

940 printchr$(147)chr$(142):poke53280, 
8:poke53281,6:print:trap2 
960 print"[CTRL-8]******************** 
********************h. trap2 
1000 print"[3xCRSR-DOWN]" 

1020 printtab(2);"[CTRL-9][CTRL-1][6xSP 
ACE][CTRL-0][5xSPACE][CTRL-9][5xSP 
ACE][CTRL-0][5xSPACE][CTRL-9][5xSP 
ACE][CTRL-0][5xSPACE][CTRL-9][2xSP 
ACE][CTRL-0]" 

1040 printtab(4);"[CTRL-9][2xSPACE][CTR 
L 0][7xSPACE][CTRL-9][SPACE][CTRL- 
0][3xSPACE][CTRL-9][SPACE][CTRL-0] 
[5xSPACE][CTRL-9][SPACE][CTRL-0][3 
xSPACE][CTRL-9][SPACE][CTRL-0][5xS 
PACE][CTRL-9][2xSPACE][CTRL-0]" 

1060 printtab(4)[CTRL-9][2xSPACE][CTR 
L 0][7xSPACE][CTRL-9][SPACE][CTRL- 
0][3xSPACE][CTRL-9][SPACE][CTRL-0] 
[5xSPACE][CTRL-9][SPACE][CTRL-0][3 
xSPACE][CTRL-9][SPACE][CTRL-0][5xS 
PACE][CTRL-9][2xSPACE][CTRL-0]" 
1080 printtab(4)[CTRL-9][2xSPACE][CTR 
L 0][7xSPACE][CTRL-9][5xSPACE][CTR 
L 0][5xSPACE][CTRL-9][5xSPACE][CTR 
L 0][5xSPACE][CTRL-9][2xSPACE][CTR 
L 0] " 

1100 printtab(4);"[CTRL-9][2xSPACE][CTR 
L 0][7xSPACE][CTRL-9][SPACE][CTRL- 
0][3xSPACE][CTRL-9][SPACE][CTRL-0] 
[5xSPACE][CTRL-9][SPACE][CTRL-0][3 
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i v 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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xSPACE][CTRL-9][SPACE][CTRL-O][5xS 
PACE][CTRL-9][2xSPACE][CTRL-O]" 
1120 printtab(4);"[CTRL-9][2xSPACE][CTR 
L 0][7xSPACE][CTRL-9][SPACE][CTRL- 
0][3xSPACE][CTRL-9][SPACE][CTRL-O] 
[5XSPACE][CTRL-9][SPACE][CTRL-O][3 
xSPACE][CTRL-9][SPACE][CTRL-O][5xS 
PACE][CTRL-9][2xSPACE][CTRL-O]" 
1140 printtab(4);"[CTRL-9][2xSPACE][CTR 
L 0][7xSPACE][CTRL-9][SPACE][CTRL- 
0][3xSPACE][CTRL-9][SPACE][CTRL-O] 
[5xSPACE][CTRL-9][SPACE][CTRL-O][3 
xSPACE][CTRL-9][SPACE][CTRL-O][5xS 
PACE][CTRL-9][5xSPACE][CTRL-O]" 
1160 b$="m [SPACE]o[SPACE]e[SPACE]i[SPAC 

E]1[SPACE]i[SPACE]j[SPACE]k[SPACE] 
e[3xSPACE]w[SPACE]o[SPACE]o[SPACE] 
r[SPACE]d[SPACE]e[SPACE]n" 

1180 print:print:trap2:fora=ltolen(b$): 

printtab(4)mid$(b$,a,1); 

1200 forp=ltol0 :nextp:nexta 
1220 print"[4xCRSR-DOWN]":trap2 
1240 print"[CTRL-8]******************** 
********************":trap2 

1280 : 

1300 rem *** schoonmaken scherm *** 

1320 va=1024:ka=55296 

1340 for rn=0to 24:for kn=0to 39 

1360 poke va+kn+40*rn, 160 

1380 poke ka+kn+40*rn,8 

1400 next kn:next rn:trapl 

1420 : 

1440 rem *** informatie gebruik *** 

1460 poke53280,8:poke53281,8:printchr$( 

144) 

1480 printchr$(14):printchr$(18):print" 
[HOME]" 

1500 print:print"====================== 


1520 print"[3xCRSR-DOWN]"; 

1540 print"In[SPACE]dit[SPACE]programma 
[SPACE]zijn[SPACE]4[SPACE]blz.[SPA 
CE]informatie[SPACE]over[SPACE]het 
[SPACE]gebruik[SPACE]opgenomen.": 
1560 print"Je[SPACE]kan[SPACE]nu[SPACE] 

kiezen[SPACE]of[SPACE]je[SPACE]daa 
rvan[SPACE]gebruik[2xSPACE]wilt[SP 
ACE]maken.":print:print:print 
1580 print"============================ 


1600 print"[4xCRSR-DOWN]" 

1620 print"[CTRL-9][SPACE]maak[SPACE]ee 

n[SPACE]keuze[SPACE]. 

. ([CTRL-0] j[CTRL-9] /[CTRL-0] n[ 

CTRL-9])" 

1640 get k$:if k$="" then 1640 
1660 if k$<>"j" and k$<>"n" then 1640 
1680 if k$="n" thenprintchr$(147):goto3 
040 

1700 : 

1720 rem *** informatie blz 1 *** 

1740 printchr$(147) 

1760 printchr$(18):print"[HOME]" 

1780 printtab(7)[CTRL-9][SPACE]inform 
atie[SPACE]taalprogramma[SPACE][CT 
RL 0]print:print 

1800 print"============================ 

=========_—" ; trapl 


1820 print"Dit[SPACE]programma[SPACE]is 
[SPACE]'menu-gestuurd'.":trap2 
1840 print ‘.print"Om[SPACE] te [SPACE] voor 

komen[SPACE]dat[SPACE]bij[SPACE]on 
juist[SPACE]gebruik":trapl 
1860 print"het[SPACE]woordenbestand[SPA 

CE]verloren[SPACE]gaat[SPACE]wordt 
":trapl 

1880 print"steeds[SPACE]om[SPACE]het[SP 
ACE]invoeren[SPACE]van[SPACE]het[S 
PACE]code-":trapl 

1900 print"nummer[SPACE]gevraagd.":trap 

2 : print 

1920 print"Dit[SPACE]codenummer[SPACE]i 
s[SPACE]tijdens[SPACE]het[SPACE]in 
tikken":trapl 

1940 print"niet[SPACE]zichtbaar.":trap2 
:print 

1960 print"Bij[SPACE]een[SPACE]onjuist[ 
SPACE]nummer[SPACE]kan[SPACE]het[S 
PACE]pro-":trapl 

1980 print"gramma[SPACE]niet[SPACE]word 
en[SPACE]voortgezet[SPACE]en":trap 

1 

2000 print"keert[SPACE]naar[SPACE]het[S 
PACE]menu[SPACE]terug.":print 
2020 print"============================ 

============":trapl 

2040 print"[CTRL-9][SPACE]druk[SPACE]op 

[SPACE]een[SPACE]toets[SPACE]. 

.». 2 . " 

2060 get k$ : if k$="" then 2060 
2080 

2100 printchr$(147) 

2120 rem *** informatie blz 2 *** 

2140 print"vervolg[SPACE]informatie[SPA 

CE]." 

2160 print"============================ 

============":trap2 

2180 print"Het[SPACE]menu[SPACE]is[SPAC 

E]als[SPACE]volgt[SPACE]samengeste 
ld: " 

2200 print"[34xCOM-T]":print:trap2 
2220 printtab(3);"invoer[3xSPACE](van[S 
PACE]nieuwe[SPACE]woorden)":trapl 
2240 printtab(3);"opslaan[2xSPACE](bewa 

ren[SPACE]op[SPACE]schijf)":trapl 
2260 printtab(3);"laden[4xSPACE](van[SP 
ACE]de[SPACE]schijf[SPACE]halen)": 
trapl 

2280 printtab(3);"lezen[4xSPACE](contro 
le[SPACE]op[SPACE]fouten)":trapl 
2300 printtab(3);"wijzigen[SPACE](verbe 
teren[SPACE]van[SPACE]fouten)":pri 
nt:trapl 

2320 printtab(3);"start[4xSPACE](starte 
n[SPACE]van[SPACE]programma)":trap 

1 

2340 printtab(3);"stoppen[2xSPACE](stop 
pen[SPACE]van[SPACE]programma)":pr 
int:trap2 

2360 print"Wordt[SPACE]gekozen[SPACE]vo 

or[SPACE]'lezen','wijzigen'[SPACE] 
of'start',":trapl 

2380 prinfdan [SPACE] wordt [SPACE] gevraa 
gd[SPACE]welke[SPACE]woorden[SPACE 
]je[SPACE]wilt" 

2400 print"============================ 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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============":trapl 

2420 print"[CTRL-9][SPACE]druk[SPACE]op 

[SPACE]een[SPACE]toets[SPACE]. 

.». 3 . " 

2440 get k$:if k$="" then 2440 
2460 

2480 rem *** informatie blz 3 *** 

2500 printchr$(147) 

2520 prinf'vervolg[SPACE]informatie[SPA 
CE]." :print 

2540 print"============================ 

============":print:trap2 

2560 print"Je[SPACE]moet[SPACE]dan[SPAC 

E]altijd[SPACE]2[SPACE]getallen[SP 
ACE]opgeven,[2xSPACE]gescheiden[SP 
ACE]door[SPACE]een[SPACE]komma." 
2580 trap2:print:print:print”[CTRL-9][S 
PACE]**[SPACE]voorbeeld[SPACE]**[S 
PACE][CTRL-0]":print:trap2 
2600 print"25,50[2xSPACE]betekent[SPACE 
]dat[SPACE]j e[SPACE]de[SPACE]woord 
en[SPACE]leest,wijzigt[SPACE]of[SP 
ACE]oe fent[SPACE]van[SPACE]25-50[S 
PACE]enz." 

2620 trap2:print"Het[SPACE]zetten[SPACE 

]van[SPACE]een[SPACE]punt[SPACE]ge 
eft[SPACE]een[SPACE]error.":print 
2640 print"============================ 

============":print:trapl 

2660 print"[CTRL-9][SPACE]druk[SPACE]op 

[SPACE]een[SPACE]toets[SPACE]. 

.» . 4 . " 

2680 

2700 get k$:if k$="" then 2700 
2720 rem *** informatie blz 4 *** 

2740 printchr$(147) 

2760 print"vervolg[SPACE]informatie[SPA 
CE]." :print 

2780 print"============================ 

============":print:trap2 

2800 prinf'Nog[SPACE]enkele[SPACE]opmer 
kingen:":print:print:trap2 
2820 print"Het[SPACE]bestand[SPACE]kan[ 

SPACE]in[SPACE]dit[SPACE]programma 
[SPACE]max. [3xSPACE]50 0[SPACE]woor 
den[SPACE]groot[SPACE]zijn." 

2840 trap2 

2860 print:print"Het[SPACE]is[SPACE]ver 

standiger[SPACE]om[SPACE]kleinere[ 
SPACE]bestan-[SPACE]den[SPACE]aan[ 
SPACE]te[SPACE]leggen." 

2880 trap2 

2900 print:print"Geef[SPACE]in[SPACE]da 

t[SPACE]geval[SPACE]ieder[SPACE]be 
stand[SPACE]een[5xSPACE]andere[SPA 
CE]naam.":print 

2920 print"============================ 

============":print:trapl 

2940 print"[CTRL-9][SPACE]nog[SPACE]een 
[SPACE]keer.?[9xSPACE]j/n[5xSPACE] 
«[SPACE]»[3xSPACE]" 

2960 get k$:if k$="" then 2960 
2980 if k$<>"j" and k$<>"n" then2960 
3000 if k$="j" then 1700 
3020 : 

3040 gosubl0020:x=500:dim w$(x):printch 
r$(14)chr$ (8) 

3060 x$="[CTRL-9][2xSPACE]**[SPACE]moei 


jlijke[SPACE]woorden[SPACE]oefenen 
[SPACE]**[2xSPACE]" 

3080 printchr$(147);:dclear5,5,0:printt 

ab(2)x$:print:print 

3100 printtab(2)"[CTRL-9][SPACE]f2[SPAC 
E][CTRL-0][SPACE]invoer[2xSPACE]": 
print 

3120 printtab(2)"[CTRL-9][SPACE]f4[SPAC 
E][CTRL-0][SPACE]opslaan[SPACE]":p 
rint 

3140 printtab(2)"[CTRL-9][SPACE]f6[SPAC 
E][CTRL-0][SPACE]laden[3xSPACE]":p 
rint 

3160 printtab(2)"[CTRL-9][SPACE]f8[SPAC 
E][CTRL-0][SPACE]lezen[3xSPACE]":p 
rint 

3180 printtab(2)"[CTRL-9][SPACE]fl[SPAC 
E][CTRL-0][SPACE]wijzigen":print:p 
rint 

3200 for s=l to 36:printtab(2)"[COM-U]" 

;:next s:print:print 

3220 printrprinttab(2)"[CTRL-9][SPACE]f 
7[SPACE][CTRL-0][SPACE]start[3xSPA 
CE] " 

3240 print:printtab(2)"[CTRL-9][SPACE]f 

5[SPACE][CTRL-0][SPACE]stoppen[SPA 
CE] " 

3260 get k$:if k$="" then 3260 
3280 if k$="[F2]" then gosub 3460 

3300 if k$="[F4]" then gosub 4120 

3320 if k$="[F6]" then gosub 4640 

3340 if k$="[F8]" then gosub 5300 

3360 if k$="[Fl]" then gosub 5680 

3380 if k$="[F7]" then gosub 6560 

3400 if k$="[F5]" then 10200 

3420 goto 3060 
3440 

3460 rem ** invoer ** 

3480 print"[SHIFT-CLR]:printtab(2);x$ 
:print:print:print:trap 1 
3500 printtab(2);"Aantal[SPACE]geladen[ 
SPACE]woorden[3xSPACE]"[CTRL-9]" 
;w-1:print:print:trap 3 
3520 printtab(2);"Als[SPACE]er[SPACE]wo 
orden[SPACE]aan[SPACE]het[SPACE]be 
stand[SPACE]" 

3540 printtab(2);"moeten[SPACE]worden[S 
PACE]toegevoegd,[SPACE]moet[SPACE] 
het[SPACE]" 

3560 printtab(2);"eerst[SPACE]worden[SP 

ACE]geladen[SPACE]." :p 

rint:print:print:trap 2 
3580 printtab(2)"[CTRL-9]Zijn[SPACE]de[ 
SPACE]woorden[SPACE]geladen?[4xSPA 
CE][CTRL-0][SPACE]j/n[SPACE][CTRL- 
9][4xSPACE][CTRL-0]":trap 2 
3600 printtab(2)"[39xSPACE]" 

3620 printtab(2)"[CTRL-9][37xSPACE][CTR 
L 0]" 

3640 printtab(2)"[CTRL-9][37xSPACE][CTR 
L 0] " 

3660 printtab(2)"[CTRL-9][37xSPACE][CTR 
L 0] " 

3680 printtab(2)"[CTRL-9][37xSPACE][CTR 
L 0] " 

3700 printtab(2)"[CTRL-9][37xSPACE][CTR 
L 0]":trap 2 

3720 print"[5xCRSR-0P]" 
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o 
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o 
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o 

4320 


4340 
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printtab(2)"[CTRL-9]Geen[SPACE]woo 
rden[SPACE]geladen[SPACE]mag[SPACE 
]alleen[SPACE]bij[2xSPACE][CTRL-0] 

" : trapl 

printtab(2)"[CTRL-9]het[SPACE]make 
n[SPACE]van[SPACE]een[SPACE]nieuw[ 
SPACE]bestand!![4xSPACE][CTRL-0]": 
trapl 

printtab(2)"[CTRL-9]Er[SPACE]moet[ 
SPACE]dan[SPACE]ook[SPACE] [CTRL-0] 
[SPACE]j[SPACE][CTRL-9][SPACE]word 
en[SPACE]gekozen![SPACE]":trapl 
get k$:if k$="" then 3800 
if k$<>"j" and k$<>"n" then 3800 
if k$="n" then return 
if k$="j" then print"[3xCRSR-DOWN] 
”;tab(2)"Geef[SPACE]het[SPACE][CTR 
L 9][SPACE]codenummer[SPACE][CTRL- 
0]";chr$(30):input c 
if cOcode then return : printchr$ (1 
44) 

printchr$(144);"[SHIFT-CLR]rprin 
ttab(2);x$:print 
if w>=x-l then return 
printtab(2);"[CTRL-9][SPACE]invoer 
[SPACE]woorden[SPACE]" 
print 
w=w+l 

printtab(2);"Aantal[SPACE]woorden: 
";w;"van[SPACE]de[SPACE]";x:print 
printtab(2);"Laatste[SPACE]woord[S 
PACE] -» [ SPACE] Toets [ 2xSPACE] [CTR 
L 9][SPACE]0[SPACE] [CTRL-0] " 
print"[5xCRSR-DOWN][7xSPACE]:inp 
ut "woord";w$(w) 

if w$ (w)=”0"then print"[SHIFT-CLR] 

":return 
goto 3900 

rem ** opslaan ** 
print"[SHIFT-CLR]";:printtab(2);x$ 
:print:print:trap 1 
printtab(2);"[CTRL-9][SPACE]WAARSC 

HUWING[SHIFT-SPACE] [CTRL-0] . 

.":print:print:trap2 

printtab(2);"Als[SPACE]aan[SPACE]e 
en[SPACE]bestand[SPACE]woorden[SPA 
CE]moeten[SPACE]":trapl 
printtab(2);"worden[SPACE]toegevoe 
gd, [SPACE]wordt[SPACE]dat[SPACE]ge 
wist,":trapl 

printtab(2);"indien[SPACE]het[SPAC 
E]niet[SPACE]eerst[SPACE]is[SPACE] 
geladen!":print:print:print:trap2 
printtab(2);"Aantal[SPACE]geladen[ 
SPACE]woorden[3xSPACE]"[CTRL-9]" 
;w-1:print:print:print:trap 2 
printtab(2);"Indien[SPACE]u[SPACE] 
wilt[SPACE]opslaan[SPACE]moet[SPAC 
E]u[SPACE]eerst":trapl 
printtab(2);"uw[SPACE]codenummer[S 
PACE]geven!":print:print:trap 2 
printtab(2)[CTRL-9][SPACE]codenu 
mmer[SPACE] [CTRL-0] ";chr$(30):inpu 
t c 

if cOcode then printchr$ (144) : ret 
urn 

printchr$(144);"[SHIFT-CLR]";:prin 


ttab(2);x$:print 

printtab(2)"geef[SPACE]bestandsnaa 
m[SPACE]->[SPACE]";:gosub 9780 
fl$="@0 :"+f$+",seq,write" 
printchr$(144);"[SHIFT-CLR]:prin 
ttab(2);x$:print 

printtab(2);"[CTRL-9][SPACE]"f$"[S 
PACE] [CTRL-0] [SPACE]wordt[SPACE]op 
geslagen[SPACE]!" 

print:printtab(2);"even[SPACE]gedu 
ld[SPACE]a.u.b.[2xSPACE]->[SPACE]- 
>[SPACE]->";:print"[2xCRSR-UP]" 
openl,8,3,fl$ 
print#1,w 
for i=l to w 

print:printtab(34);"[CTRL-9]" ; i; "[ 
2xCRSR-UP]" 
print#l,w$(i) 
next i 
close 1 

print"[SHIFT-CLR]":fori=ltow:w$(i) 
="":nexti:w=0:goto3060 

rem ** laden ** 
fori=ltow:w$(i)="":nexti:w=0 
print"[SHIFT-CLR]";:printtab(2);x$ 

:print 

printtab(2)"Geef[SPACE]bestandsnaa 
m[SPACE]->[SPACE]:gosub9780:prin 
t 

print:printtab(2);"zoeken[SPACE]na 
ar:[SPACE][CTRL-9][SPACE]"f$:trapl 
print rprinttab(2);"even[SPACE]gedu 
ld[SPACE]a.u.b.[2xSPACE]->[SPACE]- 
>[SPACE]->";:print"[2xCRSR-UP]" 
openl, 8,3, "0:"+f$+" , seq,read" 
input#l,w:z=w 

if z=0thenprinttab (7)"[10xCRSR-DOWN 
][CTRL-9][SPACE]Bestand[SPACE]niet 
[SPACE]aanwezig![SPACE]":trap2:got 
O5220 

print:printtab(2);"even[SPACE]gedu 
ld[SPACE]a.u.b.[2XSPACE]->[SPACE]- 
>[SPACE]->";:print"[2xCRSR-UP]" 
for i=l to w 

print:printtab(34);"[CTRL-9]";i;"[ 
2xCRSR-UP]" 
input#l,w$(i) 
next i 
close 1 

rem ** teken einde laden ** 
mu=54272 
for k=l to 3 

for s=0to 24:pokemu+s,0:nexts 
fortl=l to 5 

pokemu+24,15:pokemu+5,9:pokemu+4,1 
7 

fortt=lto20:next 
pokemu+1,70:pokemu,5 0 
fortt=lto20:next 

pokemu+1,90:pokemu,50:pokemu+4, 0 
nexttl:pokemu+l,0:pokemu,0 
nextk:trapl 

print"[SHIFT-CLR]":return 
close l:err$"ui 

print"[SHIFT-CLR]:printtab (2)"[C 
TRL 9][SPACE]Inhoud[SPACE]van[SPAC 
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E]de[SPACE]schijf:[2xSPACE]":trap2 5930 if k$="[F3]" then 6260 
5260 catalog:trap2:printtab(2)"[CTRL-9] 5940 goto 5900 

[SPACE]Zoek[SPACE]het[SPACE]goede[ 5960 print"[SHIFT-CLR]";:printtab(2);x$ 

SPACE] bestand [SPACE] " : traplO : return -.print" [2xCRSR-DOWN] " 


5280 : 

5300 rem ** lezen ** 

I 5320 if w=0then return 

5340 print"[SHIFT-CLR]:printtab(2);x$ 

:print:print:print:print:print:pri 
nt:print:trap 1 

5360 printtab(2);"Geef[SPACE]eerst[SPAC 
E]uw[SPACE]codenummer":print:print 
:trap 1 

5380 printtab(2)[CTRL-9][SPACE]codenu 
mmer[SPACE][CTRL-0]";chr$(30):inpu 
t c 

5400 if cOcode then printchr$ (144) : ret 
urn 

5420 printchr$(144);"[SHIFT-CLR]"rprint 
I tab(2)[CTRL-9][SPACE]lezen[SPACE 

]van[SPACE]de[SPACE]woorden[SPACE] 
":print 

5440 printtab(2);"Aantal[SPACE]woorden: 
";w-l 

I 5460 print"[2xSPACE]";:input "Welke[SPA 
CE]woorden[SPACE]wil[SPACE]je[SPAC 
E]lezen";a,b:print 
I 5480 for i=a to b 

5500 printtab (4) ; i; ,-printtab (15) ; w$ (i) 

5520 if i/20<>int (i/20)then 5600 
j 5540 get k$:if k$="" then 5540 
I 5560 printchr$(144);"[SHIFT-CLR]":print 
tab(2);"[CTRL-9][2xSPACE]lezen[SPA 
CE]van[SPACE]de[SPACE]woorden[SPAC 
E]:[CTRL-0] 

5580 printtab(25);a;;b:print 
I 5600 next i 

I 5620 get k$:if k$="" then 5620 

5640 print"[SHIFT-CLR]":return 
j 5660 : 

I 5680 rem ** wijzigen ** 

5700 print"[SHIFT-CLR]:printtab(2);x$ 

:print:print:print:print:trap 1 

5720 printtab(2);"Aantal[SPACE]geladen[ 
SPACE]woorden[2xSPACE]"[CTRL-9]" 

;w-1:print:print:print:print 
j 5740 trap2 

I 5760 printtab(2);"Geef[SPACE]eerst[SPAC 
I E]uw[SPACE]codenummer":print:print 

:trap 1 

5780 printtab(2);"[CTRL-9][SPACE]codenu 
mmer[SPACE][CTRL-0]chr$(30):inpu 
t c 

5800 if cOcode then printchr$ (144) :ret 
urn 

5820 printchr$(144);"[SHIFT-CLR]:prin 
ttab(2);x$:print 

I 5840 printtab(2)[CTRL-9][SPACE]wijzig 

en[SPACE]van[SPACE]de[SPACE]woorde 
n[SPACE]":print 

5860 print:printtab(2)[CTRL-9][SPACE] 
fl[SPACE][CTRL-0][SPACE]alles[SPAC 
E]doorbladeren" 

j 5880 print:printtab(2)[CTRL-9][SPACE] 

\ f3[SPACE][CTRL-0][SPACE]zoeken":pr 

int 

I 5900 get k$:if k$="" then 5900 
| 5920 if k$="[Fl]" then 5960 


5980 printtab(5);"Totaal[SPACE]aantal[S 
PACE]woorden:"w-1:print:print:print 
6000 print"[5xSPACE]";:input "Welke[SPA 
CE]woorden[SPACE]wil[SPACE]je";a,b 
6020 for i=a to b 

6040 print"[SHIFT-CLR]:printtab(2);x$ 

:print"[2xCRSR-DOWN]" 

6060 printtab(5);"Totaal[SPACE]aantal[S 
PACE]woorden:"w-1:print:print:print 
6080 printtab(5);i;:printtab(15);w$(i) 

6100 print:print:print:print:printtab(5 
);"[CTRL-9][SPACE]fl[SPACE][CTRL-0 
][SPACE]verder[SPACE]gaan" 

6120 print:printtab(5)[CTRL-9][SPACE] 
f3[SPACE][CTRL-0][SPACE]wijzigen": 
print 

6140 get k$:if k$="" then 6140 
6160 if k$="[Fl]" then 6220 
6180 if k$="[F3]" then gosub 6480:goto 
6220 

6200 goto 6140 
6220 next i 

6240 print"[SHIFT-CLR]":return 

6260 print"[SHIFT-CLR]";:printtab(2);x$ 

:print"[6xCRSR-DOWN]" 

6280 print"[2xSPACE]";:input "geef[SPAC 
E]zoekwoord";z$ 

6300 for i=l to w 

6320 if w$(i)=z$ then gosub 6440:return 
6340 next i 

6360 print:print:print:print:printtab(8 
);"[CTRL-9][SPACE]woord[SPACE]niet 
[SPACE]gevonden[2xSPACE]" 

6380 printtab(8);"[CTRL-9][SPACE]druk[S 
PACE]toets[SPACE]voor[SPACE]menu[S 
PACE]" 

6400 get k$:if k$="" then 6400 

6420 print"[SHIFT-CLR]":return 

6440 print"[SHIFT-CLR]:printtab(2);x$ 

:print"[5xCRSR-DOWN]" 

6460 printtab(5);w$(i):print 
6480 printtab(5);"wijzigen[SPACE]van[SP 
ACE]het[SPACE]woord":print:print 
6500 print"[5xSPACE]input "gewijzigd 
[SPACE]woord:";d$:w$(i)=d$:i=i-l 
6520 print"[SHIFT-CLR]":return 
6540 : 

6560 rem ** start programma ** 

6580 print"[SHIFT-CLR]:printtab(2);x$ 

:print"[2xCRSR-DOWN]" 

6600 print"[6xCRSR-DOWN]";:printtab(3); 

"We[SPACE]gaan[SPACE]nu[SPACE]same 
n[SPACE]woorden[SPACE]oefenen." 

6620 print:print:printtab(3);:input"Hoe 

[SPACE]heet[SPACE]je[2xSPACE]";n$ 

6640 trapl 

6660 print"[SHIFT-CLR]:printtab(2);x$ 
.•print:print 

6680 printtab (3)"Hallo,[SPACE]";n$:trapl I 
6700 print:printtab(3)"Je[SPACE]kan[SPA I 
CE] straks [SPACE]kiezen:":trap2:pri j 
nt"[CRSR-DOWN]" 

6720 printtab (3)" [CTRL-9][SPACE]1[SPACE | 

] [CTRL-0][SPACE]Hoe[SPACE] lang [SPA I 
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6740 

6760 

6780 

6800 

6820 

6840 

6860 

6880 


6900 

6920 

6940 

6960 

6980 

7000 


7020 


7040 

7060 

7080 

7100 

7120 

7140 

7160 

7180 

7200 

7220 

7240 

7260 


CE]je[SPACE]elk[SPACE]woord[SPACE] 
wilt[SPACE]zien.":trapl 
printtab(3)"[CTRL-9][SPACE]2[SPACE 
][CTRL-0][SPACE]Welke[SPACE]woorde 
n[SPACE]je[SPACE]wilt[SPACE]oefene 
n.":trap2:print:print 
printtab(3)"Je[SPACE]ziet[SPACE]st 
eeds[SPACE]een[SPACE]woord" 
printtab(3)"dat[SPACE]je[SPACE]moe 
t[SPACE]natypen.":trap2:print 
printtab(3)"Maak[SPACE]je[SPACE]ee 
n[SPACE]fout,[SPACE]dan[SPACE]zie[ 
SPACE]je[SPACE]dat" 

printtab(3)"woord[SPACE]weer,[SPAC 
E]maar[SPACE]iets[SPACE]langer.":t 
rap2:print 

printtab(3)"Maak[SPACE]je[SPACE]ge 
en[SPACE]fout,[SPACE]dan[SPACE]kom 
t[SPACE]er[SPACE]weer" 
printtab(3)"een[SPACE]ander[SPACE] 
woord!!":trap2 

print"[2xCRSR-DOWN][2xSPACE][CTRL- 
9][5XSPACE]druk[SPACE]op[SPACE]een 

[SPACE]toets[2xSPACE].[ 

CTRL-0]" 

getk$:ifk$="" then 6900 


7280 


7300 

7320 

7340 

7360 

7380 

7400 

7420 


7440 

7460 

7480 

7500 

7520 

7540 

7560 

7580 

7600 

7620 


7640 


dclear 5,5,0 

rem ** instellen tijd per woord ** 7660 

print"[SHIFT-CLR]";:printtab(2);x$ 

:print"[2xCRSR-DOWN]" 7680 

printtab(2) ;"Hoe [SPACE]lang[SPACE] 7700 

wil[SPACE]je[SPACE]elk[SPACE]woord 7720 

[SPACE]zien[SPACE]" 7740 

printtab(2);"[3xCOM-T][SHIFT-SPACE 7760 

][4xCOM-T][SHIFT-SPACE][3xCOM-T][S 7780 

HIFT SPACE][2xCOM-T][SHIFT-SPACE][ 7800 

3xCOM-T][SHIFT-SPACE][5xCOM-T][SHI 7820 

FT SPACE][4xCOM-T]" rprint rprint 7840 

printtab(2);"[CTRL-9][SPACE]1[SPAC 7860 

E][CTRL-0]:[SPACE]een[SPACE]second 7880 

e"-print 7900 

printtab(2);"[CTRL-9][SPACE]2[SPAC 7920 

E][CTRL-0]:[SPACE]twee[SPACE]secon 7940 

den":print 

printtab(2);"[CTRL-9][SPACE]3[SPAC 
E][CTRL-0]:[SPACE]drie[SPACE]secon 7960 

den":print 7980 

printtab(2);"[CTRL-9][SPACE]4[SPAC 
E][CTRL-0]:[SPACE]vier[SPACE]secon 
den":print 8000 

printtab(2);"[CTRL-9][SPACE]5[SPAC 8020 

E][CTRL-0]:[SPACE]vijf[SPACE]secon 8040 

den":print:print:print 8060 

printtab (2) input ''maak [SPACE] een 8080 

[SPACE]keus";t 8100 

if t<l or t>5 then 6980 8120 


printchr$(147); :printtab(2);x$:print 8140 
printtab (2) ,-"Totaal [SPACE] aantal [S ^ 

PACE]woorden:"w-1:print:print 
print"[2xSPACE]";:input "Welke[SPA 
CE]woorden[SPACE]wil[SPACE]je[SPAC 
E]oefenen";a,b 

print"[9xCRSR-DOWN]":printtab(2)"D 

enk [SPACE] er om." :trapl 

print:printtab(2)"Fouten[ SPACE] ver 
beter[ SPACE] je [SPACE ]met[ SPACE ]de [ 

SPACE][CTRL-9][SPACE]_[SPACE][CTRL 


8180 

8200 

8220 

8240 

8260 

8280 

8300 

8320 

8340 


0][SPACE]toets!":print:print 
traplrprint"[2xSPACE][CTRL-9][SPAC 
E]druk[SPACE]een[SPACE]toet s[2 OxSP 
ACE] " 

getk$:ifk$="" then 7300 
print"[SHIFT-CLR]" 
for i=a to b+1 
aw=aw+l 

if i=b+l then 8400 
print"[HOME]":printtab(2);x$rprint 
printtab(2);"woord-:";"[CTRL-9]";a 
w;"[CTRL-0]";tab(15);"fout-:";"[CT 
RL 9] " ; fw; 

gosub9340:printleft$(ne$,14);i 
gosub9340rprintspc(8) 
fora=ltolen(w$(i)):printmid$(w$(i) 

,a,1);:forp=ltol0:nextp r nexta 
trapt:gosub9340:gosub9520 
goto 7580 
next i 

rem ** foutencontrole ** 
print"[HOME]":printtab(2);x$:print 
printtab(2);"woord-:";"[CTRL-9]";a 
w;"[CTRL-0]";tab(15);"fout-:";"[CT 
RL 9] " ; fw; 

if an$Ow$ (i) then fw=fw+l: goto792 

0 

ifan$=w$(i)thenh=0:gosub9340 rprint 
"Goed[SPACE]zo,[SPACE]";n$;"!!" 

rem *** piep *** 
mu=54272 
for s=0to 24 
pokemu+s,0:nexts 
pokemu+24,15 
fortl=lto5 

pokemu+5,9:pokemu+4,17 
fortt=l to 50:next 
pokemu+1,70 rpokemu,50 
nexttl:pokemu+1,0 rpokemu,0 
trapl:goto7540 

print"[HOME]":printtab(2);x$rprint 
printtab(2);"woord-:";"[CTRL-9]";a 
w;"[CTRL-0]";tab(15);"fout-:";"[CT 
RL 9]";fw 
gosub9340 

print"[3xCRSR-LEFT]Jammer,[SPACE]" 
;n$;"[SPACE]kijk[SPACE]nog[SPACE]e 
ens! " 

rem ** pieper ** 
mu=54272 
for s=0to 24 
pokemu+s,0:nexts 
pokemu+24,15 
for tl=l to 5 
pokemu+5,9:pokemu+4,17 
fortt=l to 20:next 
pokemu+1,70 rpokemu,50 
fortt=l to 20:next 
pokemu+1,90 rpokemu,50:pokemu+4,0 
nexttl:pokemu+1,0 rpokemu,0 

rem ** herhaling woord ** 
h=h+l 

gosub9340:printleft$(ne$,14);i 
gosub9340 rprintspc(8) 
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8360 fora=ltolen(w$(i)):printmid$(w$(i) 
,a,l);:forp=lto50*h:nextp:nexta 
8380 trapt+h:gosub9340:gosub9520:goto76 
00 

8400 forx=l to 3 

8420 dclear8,8, 0:printchr$(147)tab(2); x 
$:print 

8440 

8460 rem ** afbeelden resultaat ** 

8480 for a=lto3 
8500 gosub 9340 

8520 print"[3xSPACE]Je[SPACE]oefende";a 
w-1;"woorden[2xSPACE]!!" 

8540 trap 1:gosub 9340 

8560 print”[3xSPACE]Je(SPACE]maakte[SPA 
CE]";fw;"fout(en)[2xSPACE]!!" 

8580 trap 1 
8600 next a:trap2 
8620 : 

8640 rem ** berekenen resultaat ** 

8660 el$="**[SPACE]einde[SPACE]van[SPAC 

E]deze[SPACE]oefening[SPACE]**":e2 
$="wacht[SPACE]even[SPACE]op[SPACE 
]je[SPACE]beoordeling[SPACE]!" 

8680 gosub9340:for u=lto3 
8700 fora=ltolen(el$) :printmid$(el$, a, 1 
);:forp=lto3:nextp:nexta:trap 1 
8720 gosub 9340 

8740 fora=ltolen(e2$) :printmid$(e2$,a, 1 
);:forp=lto3:nextp:nexta:trap 1 
8760 gosub 9340 
8780 nextu:trapl 

8800 if fw=0then printtab(3);"beoordel 
ing:[SPACE][CTRL-9][SPACE]prima[SP 
ACE]":goto8900 

8820 if fw<=aw/10then printtab(3);"beo 

ordeling:[SPACE][CTRL-9][SPACE]goe 
d[SPACE]" 

8840 if fw>aw/10and fw<=aw/5 thenprint 
tab(3);"beoordeling:[SPACE][CTRL-9 
][SPACE]voldoende[SPACE]" 

8860 if fw>aw/5 and fw<=aw/4 then print 
tab(3);"beoordeling:[SPACE][CTRL-9 
][SPACE]zwak[SPACE]" 

8880 if fw>aw/4 then printtab(3);"beoor 
deling:[SPACE][CTRL-9][SPACE]onvol 
doende[SPACE]" 

8900 trap 1 

8920 printleft$(ne$,19);kl$;k2$;k3$; 

8940 fork=lto3:printmid$(k2$, 2,35) 

8960 nextk:printleft$(ne$,20)tab(45); 
8980 trapl:print"[3xCRSR-LEFT][CTRL-9][ 
SPACE]Nog[SPACE]een[SPACE]keer[SPA 
CE]??[IOxSPACE]->[SPACE]->[SPACE] j 
/n[SPACE]" 

9000 get k$:if k$="" then 9000 
9020 if k$<>"j" and k$<>"n" then 9000 
9040 if k$="n"then 9080 
9060 if k$="j" then aw=0:fw=0:goto 6940 
9080 printchr$(147)"[9xCRSR-DOWN][2xCRS 
R-RIGHT][2xSPACE]Bedankt[SPACE]";n 
":trapl 

9100 print:printtab(4)"en[SPACE]tot[SPA 
CE]ziens[SPACE]maar[SPACE]weer[SPA 
CE]M":trap2 

9120 print"[SHIFT-CLR][5xCRSR-DOWN]";ta 
b(4);"Wie[SPACE]wil[SPACE]er[SPACE 
]nu[SPACE]oefenen[SPACE]?":trap 3 


9140 print:printtab(4);"Kom[SPACE]dan[S 

PACE]maar[SPACE]even[SPACE]hier[SP 
ACE]zitten!":trap 5:print:print 
9160 print:printtab(4)"Wil[SPACE]je[SPA 
CE]ook[SPACE]....":print 
9180 printtab(4)"[CTRL-9][SPACE]"f$"[SP 
ACE][CTRL-0][SPACE]oefenen[SPACE]- 
>[SPACE]j/n[SPACE]":print:print:pr 
int 

9200 get k$:if k$="" then 9200 

9220 if k$<>"j" and k$<>"n" then 9200 

9240 ifk$="j"then 9300 

9260 ifk$="n"thenprinttab(4);"[CTRL-9] [ 
SPACE]Vraag[SPACE]even[SPACE]hulp[ 
SPACE]!![SPACE]":trap5 
9280 aw=0:fw=0:goto3080 
9300 aw=0:fw=0:dclear5,5,0:goto 6560 
9320 : 

9340 rem *** kaders *** 

9360 printchr$(146) 

9380 printleft$(ne$,15); 

9400 printkl$;k2$;k3$; 

9420 fork=lto3:printmid$(k2$, 2,35) 

9440 nextk:printleft$(ne$,16)tab(45); 
9460 return 
9480 : 

9500 rem *** controle invoer *** 

9520 an$="":printspc(8)bs$; 

9540 geta$:ifa$="" then 9540 
9560 if asc(a$)=13 then return 
9580 if asc(a$)=20then 9540 
9600 if asc(a$)=95 then 9660 
9620 an$=an$+a$ 

9640 printa$;bs$;:goto 9540 
9660 if len(an$)<l then 9540 
9680 an$=left$(an$,len(an$)-1) 

9700 printchr$(32)chr$(157)chr$(157)bs$; 

9720 goto 9540 

9740 

9760 rem *** controle laden *** 

9780 f$="":printbs$; 

9800 geta$:ifa$="" then 9800 
9820 if asc(a$)=13 then return 

9840 if asc(a$)=20then 9800 
9860 if asc(a$)=95 then 9920 
9880 f$=f$+a$ 

9900 printa$;bs$;:goto 9800 
9920 if len(f$)<1 then 9800 
9940 f$=left$(f$,len(f$)-1) 

9960 printchr$(32)chr$(157)chr$(157)bs$; 
9980 goto 9800 
10000 : 

10020 rem *** initialiseren *** 

10040 ne$=chr$(19):fork=lto20 
10060 ne$=ne$+chr$(17):nextk 
10080 fork=lto38:kk$=kk$+chr$(96) 

10100 l$=l$+chr$(32):nextk 
10120 kl$=chr$(176)+kk$+chr$(174) 

10140 k2$=chr$(125)+l$+chr$(125) 

10160 k3$=chr$(173)+kk$+chr$(189) 

10180 bs$=chr$(164)+chr$(157):return 
10200 : 

10220 rem *** einde programma *** 

10240 printchr$(147)chr$(142) :dclear6,14 
,14:pudef:new 

EINDE LISTING woordtraininq _ 
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Checksum Woordtraining 


regel 

100 

165 

regel 1800 

178 

regel 

3500 

73 

regel 

5200 

56 

regel 

120 

139 

regel 1820 

31 

regel 

3520 

221 

regel 

5220 

178 

regel 

140 

12 

regel 1840 

85 

regel 

3540 

216 

regel 

5240 

198 

regel 

160 

111 

regel 1860 

68 

regel 

3560 

117 

regel 

5260 

144 

regel 

180 

66 

regel 1880 

227 

regel 

3580 

201 

regel 

5280 

58 

regel 

200 

139 

regel 1900 

65 

regel 

3600 

219 

regel 

5300 

181 

regel 

220 

165 

regel 1920 

101 

regel 

3620 

127 

regel 

5320 

249 

regel 

240 

139 

regel 194.0 

244 

regel 

3640 

127 

regel 

5340 

69 

regel 

250 

13 

regel 1960 

48 

regel 

3660 

127 

rege 1 

5360 

190 

regel 

260 

148 

regel 1980 

138 

regel 

3680 

127 

regel 

5380 

97 

regel 

270 

159 

regel 2000 

24 

regel 

3700 

2 05 

regel 

5400 

6 

regel 

280 

139 

regel 2020 

178 

regel 

3720 

178 

regel 

542 0 

155 

regel 

300 

165 

regel 2040 

21 

regel 

3740 

212 

regel 

5440 

13 

regel 

320 

139 

regel 2060 

169 

regel 

3760 

161 

regel 

5460 

231 

regel 

340 

182 

regel 2080 

58 

regel 

378 0' 

51 

regel 

5480 

163 

regel 

360 

172 

regel 2100 

77 

regel 

3800 

172 

regel 

5500 

173 

regel 

380 

139 

regel 2120 

147 

regel 

3820 

114 

regel 

5520 

23 

regel 

400 

165 

regel 2140 

188 

regel 

3840 

115 

regel 

5540 

175 

regel 

420 

139 

regel 2160 

179 

regel 

3860 

49 

regel 

5560 

207 

regel 

440 

110 

regel 2180 

49 

regel 

3880 

6 

regel 

5580 

68 

regel 

460 

51 

regel 2200 

164 

regel 

3900 

242 

regel 

5600 

203 

regel 

480 

139 

regel 2220 

88 

regel 

3920 

174 

regel 

5620 

174 

regel 

500 

165 

regel 2240 

29 

regel 

3940 

25 

regel 

5640 

56 

regel 

520 

58 

regel 2260 

166 

regel 

3960 

153 

regel 

5660 

58 

regel 

540 

165 

regel 2280 

9 

regel 

3980 

59 

regel 

5680 

158 

regel 

560 

58 

regel 2300 

151 

regel 

4000 

132 

regel 

5700 

204 

regel 

580 

122 

regel 2320 

239 

regel 

4020 

232 

regel 

5720 

160 

regel 

600 

34 

regel 2340 

102 

regel 

4040 

89 

regel 

5740 

20 

regel 

620 

187 

regel 2360 

221 

regel 

4060 

179 

regel 

5760 

190 

regel 

640 . 

194 

regel 2380 

230 

regel 

4080 

85 

regel 

5780 

97 

regel 

660 

240 ' 

regel 2400 

178 

regel 

4100 

58 

regel 

5800 

6 

regel 

680 

80 

regel 2420 

22 

regel 

4120 

69 

regel 

5820 

242 

regel 

700 

128 

regel 2440 

171 

regel 

4140 

38 

regel 

5840 

238 

regel 

720 

59 

regel 2460 

58 

regel 

4160 

75 

regel 

5860 

230 

regel 

740 

149 

regel 2480 

148 

regel 

4180 

82 

regel 

5880 

165 

regel 

760 

113 

regel 2500 

77 

regel 

4200 

175 

regel 

5900 

175 

regel 

780 

11 

regel 2520 

143 

regel 

4220 

213 

regel 

5920 

240 

regel 

800 

94 

regel 2540 

134 

regel 

4240 

27 

regel 

5 930 

235 

regel 

820 

50 

regel 2560 

232 

regel 

4260 

74 

regel 

5940 

87 

regel 

840 

132 

regel 2580 

224 

regel 

4280 

59 

regel 

5960 

108 

regel 

860 

95 

regel 2600 

86 

regel 

4300 

97 

regel 

5980 

19 

regel 

880 

129 

regel 2620 

56 

regel 

4320 

6 

regel 

6000 

150 

regel 

900 

58 

regel 2640 

133 

regel 

4340 

242 

regel 

6020 

163 

regel 

920 

189 

regel 2660 

23 

regel 

4360 

168 

regel 

6040 

108 

regel 

940 

138 

regel 2680 

58 

regel 

4380 

36 

regel 

6060 

19 

regel 

960 

89 

regel 2700 

170 

regel 

4400 

242 

regel 

6080 

174 

regel 

1000 

16 

regel 2720 

149 

regel 

4420 

254 

regel 

6100 

95 

regel 

1020 

54 

regel 2740 

77 

regel 

4440 

227 

regel 

6120 

67 

regel 

1040 

240 

regel 2760 

143 

regel 

4460 

117 

regel 

6140 

172 

regel 

1060 

240 

regel 2780 

134 

regel 

4480 

76 

regel 

6160 

230 

regel 

1080 

168 

regel 2800 

98 

regel 

4 500 

168 

regel 

6180 

9 

regel 

1100 

240 

regel 2820 

242 

regel 

4520 

85 

regel 

6200 

84 

regel 

1120 

240 

regel 2840 

20 

regel 

4540 

10 

regel 

6220 

203 

regel 

1140 

240 

regel 2860 

48 

regel 

4560 

203 

regel 

6240 

56 

regel 

1160 

19 

regel 2880 

20 

regel 

4580 

209 

regel 

62 60 

176 

regel 

1180 

16 

regel 2900 

53 

regel 

4600 

155 

regel 

6280 

175 

regel 

1200 

194 

regel 2920 

133 

regel 

4620 

58 

regel 

6300 

168 

regel 

1220' 

111 

regel 2940 

250 

regel 

4640 

155 

regel 

6320 

154 

regel 

1240 

89 

regel 2960 

178 

regel 

4660 

101 

regel 

6340 

203 

regel 

1280 

58 

regel 2980 

120 

regel 

4680 

6 

regel 

6360 

139 

regel 

1300 

131 

regel 3000 

169 

regel 

4700 

251 

regel 

6380 

110 

regel 

1320 

147 

regel 3020 

58 

regel 

4720 

218 

regel 

6400 

171 

rege 1 

134 0 

83 

regel 3040 

221 

regel 

4740 

227 

regel 

6420 

56 

regel 

1360 

142 

regel 3060 

45 

regel 

4760 

204 

regel 

6440 

159 

regel 

1380 

36 

regel 3080 

130 

regel 

4780 

213 

regel 

6460 

189 

regel 

1400 

1 96 

regel 3100 

157 

regel 

4800 

12 

regel 

6480 

119 

regel 

1420 

58 

regel 3120 

218 

regel 

4820 

227 

regel 

6500 

234 

regel 

1440 

130 

regel 3140 

50 

regel 

4840 

168 

regel 

6520 

5 6 

regel 

1460 

185 

regel 3160 

78 

regel 

4860 

85 

regel 

6540 

58 

regel 

1480 

148 

regel 3180 

3 

regel 

4880 

246 

regel 

6560 

107 

regel 

1500 

56 

regel 3200 

129 

regel 

4900 

203 

regel 

6580 

108 

regel 

1520 

75 

regel 3220 

93 

regel 

4920 

209 

regel 

6600 

101 

regel 

1540 

36 

regel 3240 

246 

regel 

4940 

58 

regel 

6620 

58 

regel 

1560 

172 

regel 3260 

172 

regel 

4960 

119 

regel 

6640 

19 

regel 

1580 

101 

regel 3280 

122 

regel 

4980 

88 

rege 1 

6660 

217 

regel 

1600 

33 

regel 3300 

117 

regel 

5000 

134 

regel 

6680 

242 

regel 

1620 

47 

regel 3320 

125 

regel 

5020 

155 

regel 

6700 

230 

regel 

1640 

172 

regel 3340 

120 

regel 

5040 

194 

regel 

6720 

22 

regel 

1660 

114 

regel 3360 

124 

regel 

5060 

119 

regel 

6740 

185 

regel 

1680 

188 

regel 3380 

125 

regel 

5080 

206 

regel 

6760 

82 

regel 

1700 

58 

regel 3400 

17 

regel 

5100 

171 

regel 

6780 

231 

regel 

1720 

146 

regel 3420 

82 

regel 

5120 

206 

regel 

6800 

106 

regel 

1740 

77 

regel 3440 

58 

regel 

5140 

90 

regel 

6820 

36 

regel 

1760 

68 

regel 3460 

10 

regel 

5160 

128 

regel 

6840 

102 

regel 

1780 

27 

regel 3480 

249 

regel 

5180 

26 

regel 

6860 

57 
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regel 

6880 

7 

regel 

7740 

192 

regel 

8600 

17 

regel 

9460 

142 

regel 

6900 

176 

regel 

7760 

161 

regel 

8 62 0 

.58 

regel 

9480 

58 

regel 

6920 

58 

regel 

7780 

219 

regel 

864 0 

123 

regel 

9500 

196 

regel 

6 94 0 

205 

regel 

7800 

194 

regel 

8660 

222 

regel 

9520 

119 

regel 

6960 

130 

regel 

7820 

98 

regel 

8680 

39 

regel 

9540 

159 

regel 

6980 

108 

regel 

7840 

209 

regel 

8700 

159 

regel 

9560 

82 

regel 

7000 

172 

regel 

7860 

171 

regel 

8720 

93 

regel 

9580 

148 

regel 

7020 

196 

regel 

7880 

128 

regel 

8 74 0 

161 

regel 

9600 

163 

regel 

7040 

209 

regel 

7900 

166 

regel 

8760 

93 

regel 

9620 

39 

regel 

7060 

125 

regel 

7920 

75 

regel 

8780 

36 

regel 

9640 

194 

regel 

7080 

109 

regel 

7940 

119 

regel 

8800 

75 

regel 

9660 

175 

regel 

7100- 

128 

regel 

7 960 

93 

regel 

8820 

134 

regel 

9680 

0 

regel 

7120 

32 

regel 

7980 

161 

regel 

8840 

126 

regel 

9700 

116 

regel 

7140 

142 

regel 

8000 

5 8 

regel 

8860 

238 

regel 

9720 

91 

regel 

7160 

43 

regel 

8020 

2 52 

regel 

8880 

195 

regel 

9740 

58 

regel 

7180 

227 

regel 

8040 

88 

regel 

8900 

19 

regel 

9760 

85 

regel 

7200 

61 

regel 

8060 

192 

regel 

8 92 0 

206 

regel 

9780 

39 

regel 

7220 

150 

regel 

8080 

161 

regel 

8940 

7 

regel 

9800 

158 

regel 

7240 

239 

regel 

8100 

219 

regel 

8960 

110 

regel 

9820 

82 

regel 

7260 

181 

regel 

8120 

194 

regel 

8980 

145 

regel 

9840 

147 

regel 

7280 

217 

regel 

8140 

98 

regel 

9000 

170 

regel 

9860 

162 

regel 

7300 

171 

regel 

8160 

206 

regel 

9020 

112 

regel 

9880 

149 

regel 

7320 

112 

regel 

8180 

171 

regel 

9040 

182 

regel 

9900 

193 

regel 

7340 

126 

regel 

8200 

206 

regel 

9060 

170 

regel 

9920 

101 

regel 

7360 

189 

regel 

8220 

90 

regel 

9080 

130 

regel 

9940 

37 

regel 

7380 

22 

regel 

8240 

128 

regel 

9100 

167 

regel 

9960 

116 

regel 

7400 

75 

regel 

8260 

58 

regel 

9120 

152 

regel 

9980 

90 

regel 

7420 

178 

regel 

8280 

84 

regel 

9140 

146 

regel 

10000 

58 

regel 

7440 

21 

regel 

8300 

29 

regel 

9160 

31 

regel 

10020 

91 

regel 

7460 

55 

regel 

8320 

21 

regel 

9180 

218 

regel 

10040 

218 

regel 

7480 

118 

regel 

8340 

55 

regel 

9200 

172 

regel 

10060 

81 

regel 

7500 

100 

regel 

8360 

110 

regel 

9220 

114 

regel 

10080 

79 

regel 

7520 

93 

regel 

8380 

230 

regel 

9240 

173 

regel 

10100 

192 

regel 

7540 

203 

regel 

8400 

147 

regel 

9260 

250 

regel 

10120 

202 

regel 

7560 

58 

regel 

8420 

226 

regel 

9280 

193 

regel 

10140 

119 

regel 

7580 

110 

regel 

8440 

58 

regel 

9300 

206 

regel 

10160 

207 

regel 

7600 

75 

regel 

8460 

98 

regel 

9320 

58 

regel 

10180 

69 

regel 

7620 

178 

regel 

8480 

124 

regel 

9340 

69 

regel 

10200 

58 

regel 

7640 

186 

regel 

8500 

93 

regel 

9360 

76 

regel 

10220 

150 

regel 

7660 

102 

regel 

8520 

112 

regel 

9380 

54 

regel 

10240 

100 

regel 

7680 

58 

regel 

8540 

170 

regel 

9400 

45 




regel 

7700 

185 

regel 

8560 

90 

regel 

9420 

7 




regel 

7720 

88 

regel 

8580 

19 

regel 

9440 

115 
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.59,= 

TESTDRIVE . 
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THE BARD’S TALE II . 
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PRINT OUT Amiga met Rubik’s Clock 
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Rubiks Clock 


Het uurwerk dat waarschijnlijk de mensheid de 
laatste jaen het meeste heeft bezig gehouden in 
waarschijnlijk die van de Heer Rubik. Maar nu dit 
programma is gepubliceerd doet ook M.J. Kemps, 
de maker van deze computerversie van deze klok 
een goede gooi. Het programma is volledig muis 
gestuurd door middel van de pull-down menu’s. 

Let op de [RETURN] tussen de grote haken 
niet intypen maar uitvoeren. Dus gewoon op 
de return-toets drukken. Verder alles achter 
elkaar doortikken. 

'Rubiks Clock [RETURN] 

'door M.J. Kemps uit Schiedam [RETURN] 
[RETURN] 

CLEAR ,50000& [RETURN] 

[RETURN] 

Pointer: [RETURN] 

FOR x=0 TO 63:READ y:POKE 
20212+x,y:NEXT x [RETURN] 

DATA 254,0,0,120,252,0,120 
,248,248,0,113,199,240,0,97,134,224,0,65,1 
28,192,6,1,128,128,7,1,192,0,0,0,248,0,0,0 
, 120, 0,0, 0, 0, 0, 0,162,230,0,0, 178, 137,0,0,1 
70,201,0, 0,170, 137,0,0,166,137,0,0,162,134 
[RETURN] 

[RETURN] 

Startup: [RETURN] 

RANDOMIZE TIMER [RETURN] 
pi=3.1415926536# [RETURN] 

DIM DrawClock(6024),Hour(2,12),Button(4) 
[RETURN] 

clockside=l:Button(1)=1:Button(2)=1:Button 
(3)=1:Button(4)=1 [RETURN] 

SCREEN 2,320,216,3,1:WINDOW 2,"Rubiks 
Clock",,16,2 [RETURN] 

PALETTE 0,.4,.4,.4 [RETURN] 

PALETTE 1,1,1,1 [RETURN] 

PALETTE 2,1,0,0 [RETURN] 

PALETTE 3,0,1,0 [RETURN] 

PALETTE 4,1,1,0 [RETURN] 

PALETTE 5,0,.5,1 [RETURN] 

PALETTE 6,0,0,0 [RETURN] 

PALETTE 7,0,1,1 [RETURN] 

PALETTE 17,1,0,0 [RETURN] 

PALETTE 18,0,0,.7 [RETURN] 

PALETTE 19,1,1,1 [RETURN] 

MENU OFF [RETURN] 

MENU 1,0,1,"Programm":MENU 1,1,1,"Info 
":MENU 1,2,1,"Quit " [RETURN] 

MENU 2,0,1,"Options":MENU 

2.1.1, "Shuffle":MENU 

2.2.1, "Instructions" [RETURN] 

MENU 3,0,1,"":MENU 4,0,1,"":MENU 
5,0,1,"" [RETURN] 

ON MENU GOSUB Checkmenu: [RETURN] 

[RETURN] 
draw: [RETURN] 

CIRCLE (206,54),33,6,,,1:PAINT 

(206.54) ,6 [RETURN] 

CIRCLE (114,54),33,6,,,1:PAINT 

(114.54) ,6 [RETURN] 


CIRCLE (114,146),33,6,,,1:PAINT 

(114.146) ,6 [RETURN] 

CIRCLE (206, 146), 33, 6,,, 1 .-PAINT 

(206.146) ,6 [RETURN] 

FOR a=0 TO 2*pi STEP pi/6 [RETURN] 
x=160+95*COS(a) [RETURN] 
y=100+95*SIN(a) [RETURN] 

AREA (x, y) [RETURN] 

NEXT a [RETURN] 

COLOR 5,0 [RETURN] 

AREAFILL [RETURN] 

CIRCLE (160,100),15,1,,,1:CIRCLE(160, 82) , 1, 

4.. .1:PAINT(160,82),4 [RETURN] 

CIRCLE(114,54),15,1,,,1:CIRCLE(114,36) ,1, 4 
,,,1:PAINT(114,36),4 [RETURN] 

CIRCLE(160,54),15,1,,,1:CIRCLE(160,36) ,1,4 
, , ,1:PAINT(160,36) , 4 [RETURN] 

CIRCLE(206,54),15,1,,,1:CIRCLE(206, 36) ,1,4 
,,,1:PAINT(206,36),4 [RETURN] 

CIRCLE(114,100),15,1,,,1:CIRCLE(114,82),1, 

4.. .1:PAINT(114,82),4 [RETURN] 

CIRCLE(206,100),15,1,,,1:CIRCLE(206,82),1, 
4, , ,1:PAINT(206,82) ,4 [RETURN] 

CIRCLE(114,146),15,1,,,1:CIRCLE(114,128),1 
,4,,,1:PAINT(114,128),4 [RETURN] 

CIRCLE(160,146),15,1,,,1:CIRCLE(160,128),1 
,4,,,1:PAINT(160,128),4 [RETURN] 

CIRCLE(206,146),15,1,,,1:CIRCLE(206,128),1 
,4,,,1:PAINT(206,128),4 [RETURN] 

CIRCLE(137,77),5,4,,,1:PAINT(137,77),4 
[RETURN] 

CIRCLE(183,77),5,4,,,1:PAINT(183,77),4 
[RETURN] 

CIRCLE(137,123),5,4,,,1:PAINT(137,123),4 
[RETURN] 

CIRCLE(183,123),5,4,,,1:PAINT(183,123),4 
[RETURN] 

FOR clock=l TO 12 [RETURN] 

CIRCLE (160,100),3,1,,,1:PAINT(160, 100) , 1 
[RETURN] 

xl=INT(3*SIN((9+clock)*pi/6)+.5):yl=INT(3* 
C0S((9+clock)*pi/6)+.5) [RETURN] 
x2=INT(160+13*COS((clock+9)*pi/6)+.5):y2=I 
NT (100+13*SIN((clock+9)*pi/6) + .5) 

[RETURN] 

AREA(160+xl,100-yl):AREA(x2,y2):AREA(160-x 
1,100+yl):COLOR 1,5:AREAFILL [RETURN] 

GET(145,85)-(175,115),DrawClock((clock-1)* 
502) [RETURN] 

PAINT(160,100),5 [RETURN] 

NEXT clock [RETURN] 

COLOR 4,0:LOCATE 23,1:PRINT " Side 1 
":LOCATE 23,32:PRINT " Side 2 " [RETURN] 
LINE(4,173)-(60,186),4,b:LINE(252,173) -(30 
8,186),4,b [RETURN] 

GOSUB Shuffle [RETURN] 

MENU ON [RETURN] 

[RETURN] 

Puzzle: [RETURN] 

IF MOUSE(0)=0 THEN Puzzle [RETURN] 
x=MOUSE(1):y=MOUSE(2) [RETURN] 

IF x4 AND x< AND yl73 AND y$ THEN 
clockside=l [RETURN] 

IF x252 AND x4 AND yl73 AND y* T HEN 
clockside=2 [RETURN] 

Change=0 [RETURN] 

IF xl32 AND xA AND y72 AND yR THEN 
Change=l [RETURN] 
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IF xl78 AND XÏ AND y72 AND yR THEN 
Change=2 [RETURN] 

IF xl32 AND xA AND yll8 AND y? THEN 
Change=3 [RETURN] 

IF xl78 AND xf AND yll8 AND y Q THEN 
Change=4 [RETURN] 

IF Change=l AND clockside=l OR Change=2 

AND clockside=2 THEN 

Button(1)=-Button(1)+3 [RETURN] 

IF Change=2 AND clockside=l OR Change=l 

AND clockside=2 THEN 

Button(2)=-Button(2)+3 [RETURN] 

IF Change=3 AND clockside=l OR Change=4 

AND clockside=2 THEN 

Button (3)=-Button(3)+3 [RETURN] 

IF Change=4 AND clockside=l OR Change=3 

AND clockside=2 THEN 

Button(4)=-Button(4)+3 [RETURN] 

turn=0 : direction=0 [RETURN] 

IF x81 AND y6 AND xy+60 THEN 
turn=l:direction=-l [RETURN] 

IF xr AND y21 AND xy+60 THEN 
turn=l:direction=l [RETURN] 

IF x206 AND y21 AND xy+260 THEN 
turn=2:direction=-l [RETURN] 

IF x AND y6 AND x-y+260 THEN 
turn=2:direction=l [RETURN] 

IF xr AND y 0 AND x-y+260 THEN 
turn=3:direction=-l [RETURN] 

IF x81 AND yl46 AND xy+260 THEN 
turn=3:direction=l [RETURN] 

IF x AND yl46 AND xy+60 THEN 
turn=4:direction=-l [RETURN] 

IF x206 AND y 0 AND xy+60 THEN 
turn=4:direction=I [RETURN] 

IF clockside=2 THEN 

direction=-direction:turn=3-turn [RETURN] 
IF turn THEN turn=turn+4 [RETURN] 

IF Button (turn)=Button(1)THEN 

Hour(1,1)=Hour(1,1)+direction [RETURN] 

IF Button(turn)=Button (2)THEN 

Hour(1,3)=Hour(1,3)+direction [RETURN] 

IF Button(turn)=Button(3)THEN 

Hour(1,7)=Hour(1,7)+direction [RETURN] 

IF Button(turn)=Button(4)THEN 

Hour(1,9)=Hour(1,9)+direction [RETURN] 

IF Button(turn)=1 THEN [RETURN] 

Hour(1,5)=Hour(1,5)+direction [RETURN] 

IF Button(1)=1 OR Button(2)=1 THEN 
Hour(1,2)=Hour(1,2)+direction [RETURN] 

IF Button(1)=1 OR Button(3)=1 THEN 
Hour(1,4)=Hour(1,4)tdirection [RETURN] 

IF Button(2)=1 OR Button(4)=1 THEN 
Hour(1,6)=Hour(1,6)+direction [RETURN] 

IF Button(3)=1 OR Button(4)=1 THEN 
Hour(1,8)=Hour(1,8)tdirection [RETURN] 
ELSE [RETURN] 

Hour(2,5)=Hour(2,5)-direction [RETURN] 

IF Button(1)=2 OR Button(2)=2 THEN 
Hour(2,2)=Hour(2,2)-direction [RETURN] 

IF Button(1)=2 OR Button(3)=2 THEN 
Hour(2,6)=Hour(2,6)-direction [RETURN] 

IF Button(2)=2 OR Button(4)=2 THEN 
Hour(2,4)=Hour(2,4)-direction [RETURN] 

IF Button(3)=2 OR Button(4)=2 THEN 
Hour(2,8)=Hour(2,8)-direction [RETURN] 
END IF [RETURN] 

GOSUB SetClocks [RETURN] 


release: [RETURN] 

IF MOUSE (0)=-l THEN release [RETURN] 

GOTO Puzzle [RETURN] 

[RETURN] 

SetClocks: [RETURN] 

IF clockside—1 THEN PALETTE 

5,0,.5,1:ELSE PALETTE 5,0,0,1 [RETURN] 

Hour(2,1)=12-Hour(1,3):Hour(2,3)=12-Hour(1 
,1) :Hour (2,7)=12-Hour(1,9) :Hour(2,9)=12-Ho 
ur (1,7) [RETURN] 

FOR side=l TO 2:FOR clock=l TO 12 
[RETURN] 

IF Hour(side,clock) THEN 
Hour(side,clock)=Hour(side, clock)+12 
[RETURN] 

IF Hour(side,clock)12 THEN 
Hour(side,clock)=Hour(side,clock)-12 
[RETURN] 

NEXT clock,side [RETURN] 

PUT(99,39),DrawClock((Hour(clockside,1)-1) 
*502),PSET [RETURN] 

PUT(145,39),DrawClock((Hour(clockside, 2)-1 
)*502),PSET [RETURN] 

PUT(191,39),DrawClock((Hour(clockside,3)-1 
)*502),PSET [RETURN] 

PUT(99,85),DrawClock((Hour(clockside, 4)-1) 
*502),PSET [RETURN] 

PUT(145,85),DrawClock((Hour(clockside, 5)-1 
)*502),PSET [RETURN] 

PUT(191, 85),DrawClock((Hour(clockside,6)-1 
)*502),PSET [RETURN] 

PUT(99,131),DrawClock((Hour(clockside, 7)-1 
)*502),PSET [RETURN] 

PUT(145,131),DrawClock((Hour(clockside,8)- 
1)*502),PSET [RETURN] 

PUT(191,131),DrawClock((Hour(clockside, 9)- 
1)*502),PSET [RETURN] 

IF Button(1)=1 AND clockside=l OR 
Button(2)=2 AND clockside=2 THEN 
bcolor=4:ELSE bcolor=5 [RETURN] 

CIRCLE(137,77),5,bcolor, , ,1 [RETURN] 

IF Button(2)=1 AND clockside=l OR 
Button(1)=2 AND clockside=2 THEN 
bcolor=4:ELSE bcolor=5 [RETURN] 

CIRCLE(183,77),5,bcolor, , , 1 [RETURN] 

IF Button(3)=1 AND clockside=l OR 
Button(4)=2 AND clockside=2 THEN 
bcolor=4:ELSE bcolor=5 [RETURN] 

CIRCLE(137,123),5,bcolor,,,1 [RETURN] 

IF Button(4)=1 AND clockside=l OR 
Button(3)=2 AND clockside=2 THEN 
bcolor=4:ELSE bcolor=5 [RETURN] 

CIRCLE(183,123),5,bcolor, , , 1 [RETURN] 
RETURN [RETURN] 

[RETURN] 

Checkmenu: [RETURN] 

menuid=MENU(0):menuitem=MENU(1) [RETURN] 
ON menuid GOSUB Prograram,Options 
[RETURN] 

RETURN [RETURN] 

[RETURN] 

Programiu: [RETURN] 

ON menuitem GOSUB Info,Quit [RETURN] 
RETURN [RETURN] 

[RETURN] 

Info: [RETURN] 

WINDOW 3,"Info", (74,50)- (248,138),0,2 
[RETURN] 
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MENU OFF:COLOR 5,1:CLS [RETURN] 

PRINT:PRINT " Rubiks Clock vl.0" 
[RETURN] 

COLOR 6,1:PRINT:PRINT ” Created in 
1989 by" [RETURN] 

COLOR 2,1:PRINT " M. J. Kemps" 

[RETURN] 

COLOR 6,1:PRINT:PRINT " Designed 

for" [RETURN] 

COLOR 5,1:PRINT " Commodore INFO" 
[RETURN] 

COLOR 6,4:LOCATE 10,11:PRINT "OK" 
[RETURN] 

LINE (77,69)- (98,82) ,2, b [RETURN] 
Checkmouse: [RETURN] 

IF MOUSE(0)=0 THEN Checkmouse [RETURN] 
IF MOUSE(3)P OR MOUSE(3)95 THEN 
Checkmouse [RETURN] 

IF MOUSE (4 )H OR MOUSE (4) 79 THEN 
Checkmouse [RETURN] 

COLOR 1,6:LOCATE 10,11:PRINT "OK" 
[RETURN] 

toetslos: [RETURN] 

IF MOUSE(0)0 THEN toetslos [RETURN] 
WINDOW CLOSE 3:MENU ON [RETURN] 

RETURN [RETURN] 

[RETURN] 

Quit: [RETURN] 

WINDOW 3,"Quit", (80,50)-(240, 138) ,0,2 
[RETURN] 

MENU OFF:COLOR 5,1:CLS [RETURN] 

LOCATE 3,4:PRINT "Are you sure ?" 
[RETURN] 

COLOR 6,4:LOCATE 9, 3:PRINT " Quit 
":LOCATE 9,13:PRINT "Cancel" [RETURN] 
LINE (13,61)-(66,74),2,b:LINE 
(93, 61)-(146,74),2,b [RETURN] 
Checkmouse2: [RETURN] 

IF MOUSE(0)=0 THEN Checkmouse2 [RETURN] 
IF MOUSE (3) @ AND MOUSE (3) 15 AND 
MOUSE(4)63 AND MOUSE(4)H THEN Quitl 
[RETURN] 

IF MOUSE(3)É AND MOUSE(3)95 AND 
MOUSE(4)63 AND MOUSE(4)H THEN Cancel 
[RETURN] 

GOTO Checkmouse2 [RETURN] 

Quitl: [RETURN] 

COLOR 1,6:LOCATE 9,3:PRINT " Quit " 
[RETURN] 

wacht1: [RETURN] 

IF MOUSE(0)0 THEN wachtl [RETURN] 

WINDOW CLOSE 3:WINDOW CLOSE 2:SCREEN 
CLOSE 2 [RETURN] 

MENU RESET [RETURN] 

END [RETURN] 

Cancel: [RETURN] 

COLOR 1,6:LOCATE 9,13:PRINT "Cancel" 
[RETURN] 

wacht2: [RETURN] 

IF MOUSE(0)0 THEN wacht2 [RETURN] 

WINDOW CLOSE 3:MENU ON [RETURN] 

RETURN [RETURN] 

[RETURN] 

Options: [RETURN] 

ON menuitem GOSUB Shuffle, Instructions 
[RETURN] 

RETURN [RETURN] 

[RETURN] 


Shuffle: [RETURN] 

FOR side=l TO 2:FOR clock=l TO 12 
[RETURN] 

Hour(side,clock)=INT(12*RND(1)+1) 
[RETURN] 

NEXT clock,side [RETURN] 

GOSUB SetClocks [RETURN] 

RETURN [RETURN] 

[RETURN] 

Instructions: [RETURN] 

WINDOW 4,"instructions",,0,2 [RETURN] 
MENU OFF:COLOR 7,6:CLS [RETURN] 

PALETTE 2,.8,0,.8:a=MOUSE(0) [RETURN] 
PRINT :PRINT "All you have to do is to 
get all clocks" [RETURN] 

PRINT "at 12 o'clock by turning the 
wheels and" [RETURN] 

PRINT "changing the buttons." [RETURN] 
PRINT :PRINT "Don't forget the other 
side!" [RETURN] 

PRINT:COLOR 2,6 [RETURN] 

PRINT "Control:" [RETURN] 

PRINT :PRINT "Changing Buttons: 

";:COLOR 3,6:PRINT "Simply kliek on 
them" [RETURN] 

COLOR 2,6:PRINT :PRINT "Turning wheels: 

:COLOR 3,6:PRINT "Kliek on the side 
of" [RETURN] 

PRINT " the direction 

you" [RETURN] 

PRINT " want to turn" 

[RETURN] 

COLOR 2,6:PRINT :PRINT "Change side: 
";:COLOR 3,6:PRINT "Kliek on Side X" 
[RETURN] 

COLOR 4,6:LOCATE 20,10:PRINT "Press 
left mousebutton" [RETURN] 
klickl: [RETURN] 

IF MOUSE(0)=0 THEN klickl [RETURN] 
WINDOW CLOSE 4:PALETTE 2,1,0,0:MENU ON 
[RETURN] 

RETURN [RETURN] 

Einde listing Rubik’s Clock __ 
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Niet zo lange tijd geleden, in een achter een groot water gelegen land, werd een 
machine uitgevonden. Het karakter van deze machine had een bijna menselijk,jawel 
bijna vrouwelijk, voorkomen. De maker van de machine zag dit en gaf het in een 
poëtische bui een naam. Ze was zijn steun en toeverlaat in moeilijke tijden, ze was er 
wanneer hij haar nodig had, kortweg, ze was zijn vriendin, zij was zijn ’Amiga’. 

Binnenin AmigaDOS (7) 

E en zeer poëtisch begin. U zult zich afvragen, wat was nou de bedoeling 
van het bovenstaande. Het antwoord hierop luidt: GEEN! 



Nu verder met onze cursus. De vorige 
keer waren we gebleven bij de behan¬ 
deling van een aantal handlers en de- 
vices. Deze keer gaan we verder met 
de commando’s die al bestaan. Ze 
zijn echter enigszins aangepast, dus 
het is weer de moeite waard de com¬ 
mando’s opnieuw te bekijken. We 
hanteren de zelfde beschouwingsme- 
thode als in de vorige afleveringen. 
De commando’s zullen alfabetisch 
ten tonele worden geleid. 

Vernieuwde commando’s 


Add buffers 

Op het eerste gezicht lijkt hier niet zo¬ 
veel in veranderd. Schijn bedriegt. 
Onder de oppervlakte van onze com- 
mando-oceaan is weer heel wat aan¬ 
gepast, immers Addbuffers moest 
samen kunnen werken met het Fast- 
FileSystem. Goed, de gemiddelde ge¬ 
bruiker zal hiervan niets merken. Wat 
merkt de gebruiker wel? Het is nu mo¬ 
gelijk geworden te bepalen in welk 
geheugengebied de buffers worden 
geplaatst. Door middel van het 
’BUFMEMTYPE’ keyword wordt be¬ 
paald in welk geheugengebied de 
buffer wordt geplaatst. (Zie tabel 1) 


Code 

Geheugen 

0,1 

Al naar gelang welk 


geheugen vrij is 

2,3 

CHIP-memory 

4,5 

FAST-memory 


Tabel 1. Gebruikte geheugen voor buffer 

Heeft u bijvoorbeeld een Amiga 500 
zonder geheugenuitbreiding, dan zul¬ 
len de mogelijkheden 4 en 5 wegval¬ 
len, immers u beschikt niet over FAST 
memory. 


Assign 

De Workbench vl .3 Assign vermeldt 
nu alle vermeldingen met meer dan 
drie letters zonder fouten. Scheelt 
weer heel wat zoekwerk naar de 
plaats waar de de fout eigenlijk inge¬ 
slopen was, nietwaar! 

Assign ondersteunt ook weer een ex¬ 
tra optie. Als u intypt Assign EXISTS 
[naam], dan zal het commando As¬ 
sign de vermeldingen-lijst doorzoe¬ 
ken naar de achter EXISTS vermelde 
naam. Als de naam voorkomt, zal As¬ 
sign 0 teruggeven. Komt de opgege¬ 
ven naam niet voor, dan zal 5 
(=WARN) teruggegeven worden. 
Hiermee kan dan met behulp van een 
IF WARN constructie op een bepaal¬ 
de vermelding getest worden. Zou de 
uitkomst gelijk aan 5 (=WARN) zijn, 
dan zou alsnog deze vermelding 
’geassigned’ kunnen worden. Een 
voorbeeld hiervan, 

Assign EXISTS FONTS: 

If WARN 

Assign FONTS: dfO:fonts 

Endif 


Copy 

Het commando Copy is in WB1.3 uit- 
gebreider geworden. Er zijn meerdere 
opties bijgekomen. Het merendeel 
van deze opties dankt zijn bestaans¬ 
recht aan de nieuwe statusbits. De 
volgende opties zijn er bijgekomen, 
BUF : met deze optie is het mogelijk 
het aantal, 512 bytes grote, buffers te 
regelen welke het Copy commando 
tijdens het kopieer-proces gebruikt. 
ALL : hiermee is het mogelijk om 
meerdere files of een gehele directory 
te kopiëren. Het is soortgelijk aan het 
’pattern matching’, u weet wel, het ge¬ 
bruik van de ’#?’ tekens. 

DATE : Copy zal nu de datum waar¬ 
op de file georeerd is ook kopiëren. 
NOPRO: door gebruik van deze optie 
worden de statusbits niet mee-geko- 
pieerd naar de andere file. 

COM : het is mogelijk in DOS een 
commentaar aan een file te hechten. 
Dit wordt normaal gezien niet mee ge¬ 
kopieerd. Door gebruik van de optie 
’COM’ zal het commentaar ook mee¬ 
genomen worden naar de nieuwe file. 
CLONE : als laatste optie tenslotte, 
de optie CLONE. Door gebruik van 
deze optie worden alle eigenschap- 
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pen, dus datum, statusbits, etcetera, 
gekopieerd naar de nieuwe file. 

De syntax van Copy: 

COPY [FROM] source [TO] 
destination [ALL][QUI- 

ET] [BUF=] [CLONE] [DATE] [NOP 
RO] [COM] 

Een voorbeeld: 

COPY :devs/printers TO 
df 1:devs/printers ALL 

Als er een directory wordt vermeld in 
de filenaam en deze direcory bestaat 
niet, dan zal Copy deze eerst creë¬ 
ren. Dit voorkomt weer extra werk, 
nietwaar! 

Tenslotte is er dan nog de mogelijk¬ 
heid om de tekens (2 keer aanha¬ 
lingsteken) te gebruiken ter aandui¬ 
ding van de actuele directory. Dus wilt 
u in de zelfde directory kopiëren, dan 
is het niet meer nodig deze directory 
naam twee keer te vermelden. Eén 
keer en het gebruik van de twee aan¬ 
halingstekens is voldoende gewor¬ 
den. 

Dir 

Ook in dit commando zijn verschillen¬ 
de zaken veranderd. Voor alle afkor¬ 
tingen zijn opties gecreëerd. U kent 
de letters ongetwijfeld nog wel, A, I en 
D. Door de optie OPT te gebruiken 
kon u een van deze letters toevoegen 
waardoor Dir een bepaalde optie uit¬ 
voerde. Het gebruik van OPT is niet 
langer nodig. Simpelweg een van on¬ 
derstaande opties intypen en voila, 
het gewenste staat op het scherm. 

De nieuwe opties luiden als volgt; 
ALL :het synoniem voor A 
INTER:het synoniem voor I 
DIRS :het synoniem voor D 
COM :de eerste echt nieuwe voor 
Dir. Het is hiermee mogelijk gewor¬ 
den een commando in te voeren. Het 
keyword COM of C moet dan wel in 
de inter-actieve mode (INTER) ge¬ 
bruikt worden. Typ achter het vraag¬ 
teken een C en vervolgens daarach¬ 
ter het commando dat u uit wilt voe¬ 
ren. (Zie voorbeeld). 

De syntax van Dir: 

DIR device [OPT A|I|D] [ALL][DIRS] 

[INTER[COM]j 

Een voorbeeld: 

DIR dfO.s INTER 

Op het scherm kan bijvoorbeeld ko¬ 
men te staan: 

s(dir) 

Startup-Sequence StartupII 
? C'type s/startup-sequence" 


Hieruit blijkt wel weer dat Dir weer 
wat krachtiger en gebruikersvriende¬ 
lijker geworden is. 

DiskDoctor 

Diskdoctor’s interne routines zijn 
enigszins aangepast. Het controleert 
eerst of er genoeg geheugen is voor¬ 
dat er begonnen wordt met de kopi- 
eeroperatie. Natuurlijk werkt het ook 
samen met het nieuwe filesysteem, 
FastFileSystem. Als u van deze mo¬ 
gelijkheid gebruik wilt maken dan 
moet u niet vergeten in de MountList, 
achter het keyword DOSTYPE het 
juiste ’dostype’ op te geven. De vol¬ 
gende vermelding in de MountList 
zorgt ervoor dat het FastFileSystem 
gebruikt wordt: 


Typ dit regeltje over het oude dostype 
heen, of als het er in zijn geheel nog 
niet staat, typ het dan in binnen de 
vermelding voor het specifieke devi¬ 
ce. 


Echo 

Echo kent drie extra opties. Alle drie 
hebben ze invloed op de tekst die 
achter Echo ingetypt wordt. De opties 
zijn: 

NOLINE :zoals de optie al zegt; er 


wordt geen RETURN gegeven achter 
de tekenreeks die Echo uitvoert. 
FIRST nn : de eerste nn tekens wor¬ 
den niet uitgevoerd. Dus voor nn moet 
het aantal tekens ingevuld worden 
welke u niet afgeprint wilt zien. 

LEN nn : nu gaat het om het aantal 
tekens dat u afgebeeld wilt zien, gere¬ 
kend vanaf het einde. 

De syntax van Echo: 

ECHO string [NOLINE][FIRST 
nn][LEN nn] 

Een voorbeeld: 

ECHO "Dit is een test"LEN 4 

Op het beeldscherm zal dan afge¬ 
beeld worden: 

test 


Execute 

Ook bij Execute hebben zich weer de 
nodige veranderingen voorgedaan. 
Als Execute als resident-commando 
in de SHELL omgeving werkt zal men 
zich in de zevende hemel wanen. De 
commando’s worden dan direct uitge¬ 
voerd. Ook de batch-bestanden waar¬ 
van het zogenaamde 'script’ bit gezet 
is, u weet wel één van de statusbits, 
laden eerst het Execute commando. 
Execute maakt gebruik van het virtu¬ 
ele device T: als deze ’geassigned’ is. 


DosType = 0x444f5301 
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Zo niet, dan maakt het gebruik van de 
T-directory. Goed, we geven toe, 
geen schokkende veranderingen, wat 
de gebruiker aangaat. Eén ding is wel 
van het belang: Het gebruik van Exe- 
cute in de SHELL omgeving werkt 
een stuk prettiger dan voorheen. 
Even een voorbeeld. Stel u maakt 
een batchbestand dat de naam 'com¬ 
pact’ heeft. Geef nu op: 

PROTECT compact +s 
Het bestand 'compact' zal nu een ge¬ 
zet scriptbit hebben. Typ nu in: 
compact 

Heee, hoe wonderlijk. Geen foutmel¬ 
dingen die schijnbaar doelloos over 
het scherm dwalen, nee het batchbe¬ 
stand wordt gewoon uitgevoerd alsof 
het hier om een com-mando gaat. Dit 
geeft nu de kracht van Execute in de 
SHELL omgeving aan. 

Format 

Eigenlijk is het wel logisch dat dit 
commando enige veranderingen is 
ondergaan, immers het moet samen 
kunnen werken met het FastFileSys- 
tem (FFS). 

Welke opties zijn nu nieuw? 

QUICK :hiermee wordt alleen het 
'Root Block’, het 'Boot Block’ en de 
’BitMap Blocks’ opnieuw geformat¬ 
teerd. Zeer handig voor de harddisk 
bezitters. 

FFS : deze optie geeft aan dat het 
device onder FFS geformatteerd 
moet worden. 

NOFFS : tja, het spreekt eigenlijk wel 
voor zich. Dit geeft aan dat het oude 
FileSystem gebruikt moet worden. 

De opties FFS en NOFFS kunnen 
worden gebruikt om het in de Mount- 
List vastgestelde FileSystem, dit is 
datgene wat u, of de programmeur, 
opgegeven had achter het keyword 
DosType, te 'overriden' zoals de En- 
gelsen het zo mooi kunnen zeggen. U 
geeft dus in de MountList een File¬ 
System type op, bijvoorbeeld u gaf op 
dat het gewone FileSystem gebruikt 
moest worden. Echter, u wilt het devi¬ 
ce nu onder het FastFileSystem for¬ 
matteren. Geef dan de optie FFS mee 
en het device zal onder het FastFile¬ 
System geformatteerd worden. 
Mischien nog even ten overvloede: 
als u het device onder het oude file- 
system wilt gebruiken dan is niet no¬ 
dig het DosType keyword in de 
MountList te gebruiken. Wilt u het 
FastFileSystem wel gebruiken, dan 
zult u achter DosType, 0x444f5301 
moeten zetten. 

De syntax van Format: 

FORMAT DRIVE device NAME 


naam [NOICONS] 

[QUICK][FFS][NOFFS] 

Een voorbeeld: 

FORMAT DRIVE RAD: NAME 

RAMBO FFS 

Dit voorbeeld zorgt ervoor dat de re- 
set-vaste RAM disk geformatteerd 
wordt onder FFS. Het is echter wel 
nodig een paar zaken hiervoor in de 
MountList te veranderen. Zie hiervoor 
Commodore INFO nr. 2, bladzijde 65, 
Tips en Trucks. 

Info 

Hier hebben zich niet zoveel 
veranderingen voorgedaan. Een klei¬ 
ne verandering, de afgeprinte tekst 
van Info past zich automatisch aan, 
aan de langste schijf (volume) naam. 



Er is wel een nieuwe optie bijgeko¬ 
men. Door toevoeging van een device 
vermelding is het mogelijk een over¬ 
zicht te krijgen van één device. 

De syntax van Info: 

INFO [device] 

Install 

Ook Commodore is in de aanval te¬ 
gen virussen. Al geruime tijd kan men 
’viruswatchers’, '-protectors', etcetera 
in de handel verkrijgen. Met behulp 
van het Install commando kan men 
op gezette tijden de schijven controle¬ 
ren of er zich virussen op genesteld 
hebben. De optie CHECK zorgt er¬ 
voor dat Install de bootsector van de 
te controleren schijf vergelijkt met een 
standaard patroon. Komt dit niet met 
elkaar overeen, dan zal Install een 
waarschuwing geven en de WARN- 
flag zal gezet worden. Raak niet me¬ 
teen in paniek bij een eventuele mei 


ding, veel commerciële programma- 
turen hebben ook eigen, dus een af¬ 
wijkende, bootsector. 

Een tweede nieuwe optie is NO- 
BOOT. Hiermee kunt u een bootsec¬ 
tor wel opnieuw installeren; echter, de 
schijf wordt dan als niet ’bootbaar’ ge¬ 
merkt. U kunt dus met een op deze 
wijze geïnstalleerde schijf niet opstar¬ 
ten. 

De syntax van Install: 

INSTALL [DRIVE] 

[dfO|dfl|df2| df3]: [NO- 

BOOT][CHECK] 

Een voorbeeld: 

INSTALL DRIVE dfO: CHECK 
IF WARN 

ECHO "Op deze schijf zou 
wel een virus genesteld kun¬ 
nen zijn." 

ENDIF 

Join 

Heel kort. Join kende de optie TO al. 
Hiervoor is er een synoniem bij geko¬ 
men. In plaats van TO mag u ook AS 
gebruiken. 

List 

Deze zal niet zo kort zijn als het voor¬ 
gaande commando. In List is een 
aanzienlijk aantal zaken veranderd. 
Ten eerste laat List de nieuwe status- 
bits H (Hidden), S (Script), P (Pure) 
en A (Archive) zien. 

Het is nu ook mogelijk geworden om 
het zogenaamde ’pattern matching’, u 
weet wel, het gebruik van de ’#?’ te¬ 
kens, toe te passen bij List. U geeft 
de eerste letters van een filenaam op 
en vervolgens de tekens ’#?’. List zal 
nu alle files afbeelden die met deze 
letters beginnen. 

Ook bij List is weer een aanzienlijk 
aantal nieuwe opties bijgekomen. 
BLOCK : de filegrootte wordt afge- 
beeld in het aantal blokken in plaats 
van het aantal bytes. 

NOHEAD : de meldingen die te¬ 
voorschijn komen aan het begin en 
het eind van de List-operatie, dus de 
directory plus datum-vermelding aan 
het begin en het aantal files plus di¬ 
rectories aan het einde, worden on¬ 
derdrukt. 

FILES : alleen de files en hun gege¬ 
vens worden afgebeeld. 

DIRS : alleen de directories en hun 
gegevens worden afgebeeld. 

Eén keyword hebben we nog niet be¬ 
sproken. Dit is het keyword LFOR- 
MAT. Het is hiermee mogelijk gewor- 
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den de uitvoer van List naar eigen 
wens te regelen. 

Door de nu ontstane uitvoer om te lei¬ 
den naar een apart bestand kunt u op 
eenvoudige wijze een batchbestand 
creëren. Even een voorbeeld: 

LIST ram:bestand LFORMAT 
"protect %S -d" 

Dit voorbeeld zorgt ervoor dat een 
batchfile wordt gemaakt met de naam 
'bestand’. Ze is terug te vinden op de 
ram-disk. Dit batchbestand zorgt er¬ 
voor van alle files in de directory 
waarop dit bestand wordt losgelaten, 
de delete-bit wordt gewist. Nu nog 
even een opmerking omtrent het tus¬ 
senvoegen van de filenamen. Dit doet 
u met behulp van ’%S’. 

’%S' wordt in het batchbestand ver¬ 
vangen door de filenaam. Vermeldt u 
2 keer %S, dan zal de List-operatie 
twee keer op de file uitgevoerd wor¬ 
den. Vermeldt u 3 keer %S dan zal 
List dit vervangen voor de 
directoryvermelding(en) (path), en 
twee keer de filenaam. Tenslotte is er 
nog de mogelijkheid van 4 keer %S. 
Dit wordt vervangen door de path, de 
filenaam, de path en wederom de file¬ 
naam. 

De syntax van List: 

LIST device|directory|pattern [PAT] 
pattern [KEYS][NODATES][TO file¬ 
naam]^ substring][SINCE da- 
tum][UPTO datum] 

[QUICK][BLOCK][NOHEAD][FILES] 
DIRS] [LFORMAT="string"] 

Mount 

Niet verwacht, dat hieraan nog iets 
viel te verbeteren. Niets is minder 
waar! Was het voorheen mogelijk al¬ 
leen devices vanuit te MountList te 
’mounten’, tegenwoordig kunt u elke 
ASCII file hiervoor gebruiken. Deel 
aan Mount mee uit welk bestand hij 
de gegevens moet halen en klaar is 

Kees...of Jan...of Piet.ho.STOP. 

En klaar bent u! Gebruik hier dan wel 
de optie FROM voor. 

Een voorbeeld: 

MOUNT rad: FROM dfO:AltMntüst 

Dit voorbeeld zorgt ervoor dat de ge¬ 
gevens van het device ’RAD:’ worden 
gezocht in het bestand ’AltMntList’ 
welke op drive DFO: moet staan. 

NewCli 

Door middel van de optie FROM was 
het mogelijk automatisch bij het op¬ 
starten van een nieuwe CU een 
batchbestand uit te laten voeren. In 
WB1.3 voert NewCli, iedere keer als 
het commando uitgevoerd wordt, een 


batchbestand uit. Dit wordt genoemd, 
het ’default startup-file’. Deze default 
startup-file heet ’CLI-startup’ en is te¬ 
rug te vinden in de S-directory. Wilt u 
desondanks toch uw eigen batchbe¬ 
stand uit laten voeren, maak dan ge¬ 
bruik van de optie FROM en vermeld 
hierachter de naam van het bestand. 



Path 


Ook bij Path is er een nieuwe optie 
bijgekomen. De optie, genaamd 
QUIET, zorgt ervoor dat Path niet 
meer met de hinderlijke requesters te¬ 
voorschijn komt als Path haar lijst aan 
het doorzoeken is. Even een voor¬ 
beeld ter verduidelijking. 

Stel, uw ’path’ (wie weet hier een fat¬ 
soenlijk Nederlands woord voor!!!!) 
luidt als volgt. 

SYS1 :c 
RAD: 

RAM: 

SYS2:c 

SYS2:bin 

Als nu SYS1 niet in een van uw drives 
zit, dan zal Path alleen de volume¬ 
naam weergeven. Ze zal de directory- 
naam weglaten. Het voordeel van de 
optie QUIET is dat er nu geen reque¬ 
sters meer tevoorschijn zullen komen. 

De syntax van Path: 

PATH directory-naam 

[SHOW][ADD][RESET] [QUIET] 

Een voorbeeld: 

PATH dfl :bin ADD 

Prompt 

Ook dit verhaaltje zal niet te lang du¬ 
ren, er is vrij weinig veranderd. 
Prompt is in staat, tezamen met de 
SHELL-omgeving, het actuele device 
en -directories, te vermelden. Ook 
kunt u met Prompt het CLI-nummer 
af laten beelden. Dit wist u, als trouwe 
volger van deze cursus echter al. 
Deze twee eigenschappen kunt u 
door Prompt uit laten voeren 


door in de promptstring zekere codes 
te gebruiken. Welke zijn dit? 

%N : dit wordt door Prompt vervan¬ 
gen door het actuele CLI-nummer. 
Deze mogelijkheid bestond al in 
WB1.2 

%S : dit wordt door Prompt vervan¬ 
gen door de actuele directory en het 
actuele device. 

De syntax van Prompt luidt als volgt: 
PROMPT promptstring 

Protect 

Ook hierbij waren de nieuwe status- 
bits een grote aanleiding tot verande¬ 
ring. Immers, de statusbits moeten op 
enigerlei wijze beïnvloed kunnen wor¬ 
den. Deze functie wordt vervult door 
Protect. Ook de nieuwe statusbits 
moeten weer door Protect kunnen 
worden beïnvloed, dus verandering 
was noodzakelijk. Wat is er nu anders 
geworden? Het ’setten’ of ’resetten’ 
van de statusbits gebeurt door middel 
van twee opties, namelijk ADD en 
SUB. Voor beide opties zijn ook afkor¬ 
tingen beschikbaar. Voor ADD is er ’+’ 
en voor SUB is er 
De syntax van Protect: 

PROTECT [FILE] filenaam [FLAGS] 
+][-] status bits [ADD][SUB] 

Een voorbeeld: 

PROTECT rad:daphne.c-wd 

De file kan door deze actie niet meer 
beschreven en gewist worden. Het is 
de bedoeling dus om de gewenste ac¬ 
tie, ADD(+), SUB(-), te noteren en 
vervolgens moet aangegeven welke 
statusbits beïnvloed moeten worden. 


Tot Slot 

In deze aflevering hebben we ons 
grotendeels weer gehouden aan een 
kale opsomming van de commando’s 
en hun grotendeels nieuwe eigen¬ 
schappen. We hebben de opzet een 
klein beetje gewijzigd, dat wil zeggen, 
in eerste instantie van elk commando 
een beschrijving te geven, vervolgens 
waar nodig een syntax beschrijving 
en een voorbeeld te geven. 

In de volgende aflevering gaan we de 
AmigaDOS cursus afsluiten. We ge¬ 
ven de laatste commando’s en we 
gaan nog even wat dieper in op de 
nieuwe Preferences. Dan rest ons 
niets meer dan u nog hier vandaan 
prettige experimenteer uren met Ami¬ 
gaDOS toe te wensen en denk erom, 
een NEC MultiSync II is te duur en zet 
uw koffiekopje in vredesnaam niet 
naast het toetsenbord!!! 
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Tips «Trucs 


Timer 


AmigaBasic bevat o.a. de functie TI¬ 
MER. Volgens het manual telt deze 
functie het aantal seconden, dat ver¬ 
lopen is sinds middernacht (00:00:00 
uur). Dit gebeurt echter niet goed. De 
TIMER zou moeten tellen van 0 (= 
00:00:00) t/m 86.399 (23:59:59). Ik 
geef gemakshalve alleen integer 
waarden. Er gebeurt echter iets ge¬ 
heel anders, zie onderstaand over¬ 
zicht. 

Dit komt waarschijnlijk, omdat er er¬ 
gens een teller te klein bemeten is. 
Het is vooral lastig als je de benodig¬ 
de tijd wilt meten van een bepaald 
programma-onderdeel m.b.v. de Tl- 
MER-functie. Je kunt zeer verrassen¬ 
de uitslagen krijgen. Bedenk, dat niet 
iedereen een real-time clock heeft. Bij 
diegenen, die wel een real-time clock 
hebben is deze nog lang niet altijd ge¬ 
activeerd. M.a.w. veelal is bij spelle¬ 
tjes e.d. de systeem-tijd voor iede¬ 
reen een volkomen geheim. Het kan 
net zo goed 00:01:15 zijn, als 
18:12:45, als 23:59:34. 

Hierachter schets ik een aantal situa¬ 
ties, steeds met een van de mogelijke 
oplossingen (er zijn vaak wel andere 
oplossingen te bedenken, die alle 
even goed, mogelijk zelfs efficiënter 
zijn). 


0 1. U wilt gewoon precies het aantal 
seconden na 00:00:00 weten. 

GOSUB seconden : PRINT USING 
"#####.####"; sec# 
seconden: 
sec#=TIMER 

IF VAL(LEFT$(TIME$,2))17 AND 
secfüt THEN sec#=sec#+65536# 
RETURN 

Noot: Als u minder nauwkeurig maar 
sneller wilt zijn, dan moet u alle dou- 
ble-precisions wijzigen in single-pre- 
cisions of in long-integers. Short-inte- 
gers kan niet, want deze kunnen niet 
de max. waarde van 86400 bevatten. 
Ook dient u het PRINT-statement 
overeenkomstig aan te passen (min¬ 
der decimalen in het USING-gedeel- 
te). 

° 2. U wilt alleen het verschil weten 
tussen 2 tijdstippen. U weet zeker, 
dat het verschil kleiner is dan 5 uur 
47 min 44 sec (20.864 sec). 

s1#=TIMER 


s2#=TIMER : GOSUB verschil 


Systeem- 
Ti jd 

Aantal sec 
na 00:00:00 

Waarde die de 
TIMER geeft 

00:00: 00 

0 

0 

00:00:01 

1 

1 

00:00:02 

2 

2 

18:12:58 

65.578 

65.578 

18:12:59 

65.579 

65.579 

18:13:00 

65.580 

44 

18:13:01 

65.581 

45 

18:13:02 

65.582 

46 

23:59:58 

86.398 

20.862 

23:59:59 

86.399 

20.863 

00:00:00 

0 

0 

00:00:01 

1 

1 


PRINT USING "#####.####"; 
s3# 


verschil: 

IF s3# THEN s3# = s3# + 20864# 

ELSE RETURN 

IF s3# THEN s3#=s3# + 44672# 
RETURN 

°3. U wilt alleen het verschil weten 
tussen 2 tijdstippen. U weet NIET 
zeker, of het verschil kleiner is dan 
5 uur 47 min 44 sec (20.864 sec). 

CALL seconden(sl#) 


CALL seconden(s2#) 
s3#=s2#-sl# : IF s3# THEN 
s3#=s3#+86400# 

PRINT USING ''#####.####"; 
s3# 


END 

SUB seconden(s#) STATIC 
s#=TIMER 

IF VAL(LEFT$(TIMES,2))17 
OAND S#Ü# THEN 
s#=s#+65536# 

END SUB 
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Interpreter 


Hieronder komt een aantal TIPS, die 
van belang kunnen zijn voor de 
SNELHEID van uw BASIC-program- 
ma. Er moet hierbij onderscheid ge¬ 
maakt worden tussen twee omgevin¬ 
gen: de basic-INTERPRETER en de 
basic-COMPILER. Ik denk dat voor 
een aantal onder u niet alles even 
nieuw of opzienbarend is, maar voor 
velen onder u zal er toch wat te leren 
vallen. 

Tip-1 (Interpreter). 

Zet zo weinig mogelijk commentaar in 
uw programma, hoe minder commen¬ 
taar en/of commentaarregels, hoe 
sneller uw programma. En als u dan 
TOCH commentaar wilt vermelden, 
denk dan aan het volgende: 

0 Houd het commentaar zo kort mo¬ 
gelijk. 


ments op 1 regel, uiteraard geschei¬ 
den door een Een regel kan max 
255 characters bevatten (bij de 256- 
ste komt de melding: LINE BUFFER 
OVERFLOW). 

FOR 1% = 1 TO 1000 : A$ = 
"CDEFGH" : NEXT 1% 

is sneller dan 

FOR 1% = 1 TO 1000 
A$ = "CDEFGH" 

NEXT 1% 

Tip-3 (Interpreter) 

Zet zo weinig mogelijk blanks “ ” in 
een regel met statements. 

FOR I%=1 TO 1000:A$="CDEF 
GH":NEXT 1% 

is sneller dan 

FOR 1% = 1 TO 1000 : A$ = 
"CDEFGH" : NEXT 1% 

Tip-4 (Interpreter & Compiler) 



SWAP A$,B$ 

is veel sneller dan 

H$=A$:A$=B$:B$=H$ 


0 Plaats het commentaar zoveel mo¬ 
gelijk naar links 

° Plaats het commentaar niet in een 
vaak te doorlopen loop, 

(maar voor de loop of na de loop.) 

Tip-2 (Interpreter) 

Zet zoveel mogelijk BASIC-state- 



Gebruik zoveel mogelijk de juiste 
soort variabelen. Dit wordt bepaald 
door een “trailing” character. Gebruik 
zoveel mogelijk integers bij rekenkun¬ 
dige bewerkingen. Als dat niet kan, 
gebruik dan zoveel mogelijk single- 
precision, dat is sneller dan double- 
precision. 

% = short integer 
& = long integer 
! = single precision 
# = doublé precision 
$ = string 
Default = ! 

FOR I%=1 TO 1000:A$="CDE 
FGH":NEXT 1% 

is sneller dan 

FOR 1=1 TO 1000:A$="CDEFG 
H":NEXT I 


Tip-5 (Interpreter & Compiler) 

Ik wil hierbij de aandacht vestigen op 
het statement SWAP. Het dient voor 
het verwisselen van de inhoud van 
twee variabelen. Dit komt bv. van pas 
bij een zelf geschreven sorteer-routi- 
ne. 
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Noot: Als u Tip-1 t/m Tip-3 toepast in 
de INTERPRETER-omgeving, dan 
wordt uw programma er niet leesbaar¬ 
der van, maar WEL veel SNELLER. 
In de COMPILER-omgeving heeft het 
geen enkel effect, de compiler doet dit 
allemaal zelf al. Tip-4, mits conse¬ 
quent toegepast, kan een verrassend 
groot effect hebben (2x zo snel), maar 
het effect is sterk afhankelijk van het 
feitelijke programma. Tip-5 is een los¬ 
se opmerking. 

R.C.A.B. Kohier 

Gerrit van der Veenstraat 37 

3762 XH Soest 
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Computer Aided Design en Drafting, kortweg CAD(D), op de Amiga is in feite een 
prima huwelijk. Aan de ene kant de grafische mogelijkheden van de computer, aan de 
andere kant de technische tekenopties van de software. Het resultaat kan variëren van 
logo’s of reklameplaten tot technische en bouwkundige tekeningen. Aegis Draw 2000 
is zo’n CAD(D)-pakket. 

Draw 2000 


CAD(D) op de Amiga 

P rofessioneel technisch tekenen en ontwerpen is met de grafische kwa¬ 
liteit van de Amiga goed mogelijk. De enige uitbreidingen die u nodig 
heeft, zijn een CADD-pakket, een geschikte printer of plotter en liefst meer 
dan 1 MB aan vrij RAM. Met behulp van Aegis Draw 2000 en een geschikte 
printer kan de Amiga-gebruiker meteen aan de slag. Bouwtekeningen, in¬ 
dustriële ontwerpen, logo’s en art work, het behoort allemaal tot de moge¬ 
lijkheden. 

Vroeger was CAD een aangelegen¬ 
heid voor de professional. Dure mini- 
of mainframe-hardware en prijzige te¬ 
kenpakketten maakten CAD onbe¬ 
reikbaar voor de kleinere gebruiker. 

Gelukkig bracht de komst van 
desktopcomputers tevens goedkope¬ 
re CAD-pakketten op het bureau. 

Kleinere architectenbureau’s, tech¬ 
nisch- en industriële ontwerpers, 
vormgevers en reklametekenaars 
kregen daarmee een krachtig teken¬ 
instrument in handen. 

De standaard voor CAD op de PC is 
AUTOCAD. Deze meester onder de 
CADD-pakketten biedt feitelijk alles 
wat het technisch tekenhartje be¬ 
geert. Helaas tegen een prijskaartje 
van meer dan ƒ 6.000,- en daar komt 
de PC in kleurenuitvoering nog bij. Op 
de Amiga kan het echter veel goedko¬ 
per. In principe kunt u met een Amiga 
500, twee diskdrives en 1 MB aan vrij 
RAM plus een CAD- pakket van 680 
piek al aan de slag. Alles uiteraard in 
de voortreffelijke grafische Amiga- 
kwaliteit. 

Wat is CAD(D) 

Onder Computer Aided Design, 

CAD, verstaat men kortweg technisch 
tekenen en ontwerpen op de compu¬ 
ter. Coördinatenstelsels in diverse 
meeteenheden, hoeken, hellingen, 
spiegelingen, roteren, rastering, fil- 
ling, vrij of het automatisch tekenen 
van standaardelementen (punten, lij¬ 
nen, bogen, cirkels, ellipsen, vierkan¬ 
ten en veelhoeken), het toevoegen 



van teksten of verklarende symbolen 
en het op schijf bewaren behoren tot 
de mogelijkheden. 

Dikwijls spreekt men van CADD. Die 
extra D slaat op drafting, hetgeen in 
de praktijk zoiets betekent als profes¬ 
sioneel tekenen. Hieronder vallen de 
grafische vormgeving, reclameteke- 
nen en artwork. 

Op de keper beschouwd is een 
CAD(D)-pakket niets meer of minder 
dan een geavanceerde tekenhulp. 
Het pakket tekent de door de gebrui¬ 
ker opgegeven vormen en figuren. 
Dat kan met de vrije hand, automa¬ 
tisch of door het inladen van een 
reeds bestaande tekening. De grote 
voordelen van CAD(D) t.o.v. normaal 
tekenen zijn de hoge mate van nauw¬ 
keurigheid, de vele bewegingsmoge¬ 
lijkheden en het gemak van het auto¬ 
matisch tekenen of veranderen van 


de dimensies. Een perfecte rechte lijn 
ontstaat door het invoeren van 
slechts twee punten. Idem dito een 
curve door het intypen van drie coör¬ 
dinaten. Een vierkant is een kwestie 
van met de muis de dimensies op het 
scherm aangeven. Enzovoort. 

De gemaakte figuren kunt u weer ver¬ 
groten/verkleinen, spiegelen, roteren, 
arceren of in de gewenste kleur uitvul¬ 
len, gebruiken als bouwstenen voor 
grotere elementen, arceren, van ver¬ 
klarende teksten of symbolen voor¬ 
zien, in 2 of 3D-perspectief weerge¬ 
ven, kopiëren en in/uitzoomen. Is de 
tekening af, dan wordt deze voor later 
gebruik op de disk opgeslagen. Moet 
er achteraf nog iets veranderd wor¬ 
den, dan is even ophalen en op de 
monitor bijwerken voldoende. Vroe¬ 
ger betekende een dergelijke proce¬ 
dure meestal helemaal overtekenen! 
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CADD wordt voor de volgende doel¬ 
einden gebruikt: 

• Architectonische ontwerpen. 

Bijvoorbeeld de bouw van een 
huis of een schuurtje, binnenhuis¬ 
architectuur en stedelijke plan¬ 
ning. 

• Werktuigbouwkundige ontwer¬ 
pen. Bijvoorbeeld een versnel¬ 
lingsbak, een pomp, een nieuwe 
motor of de aërodynamische vorm 
van een vliegtuig. 

• Technisch tekenen. Met name 
bij artistieke of grafische vormge¬ 
ving, het ontwerpen van logo’s, 
desktoppublishing en reclamete- 
kenen. 


• Laagsgewijs ontwerpen: Bijvoor¬ 
beeld electronische printplaten en 
onder elkaar gelegen stelsels van 
leidingen. In het laatste geval 
koppelt men vaak een database 
met gegeven over diepte, lengte 
en breedte, aard van, ouderdom 
en onderhoudstatus aan de te¬ 
kenlagen. 

• Simulaties. Beproeving van de 
ontwerpen door het aanbrengen 
van druk-, trek- of rotatiekrachten, 
hitte of koude en versnellingen. 
Deze simulaties kunnen veel geld 
besparen, leveren geen gevaar 
op en kunnen zelfs in andere 
proefopstellingen niet haalbare 
extreme condities nabootsen. 

• Koppeling aan een productie¬ 
proces. Bijvoorbeeld een compu- 


terbestuurde freesbank. Men 
spreekt van CAM, computer ai- 
ded manufacturing. 

• Een wat oneigenlijk CAD(D)-ge- 
bruik is het ontwerpen van (orga- 
nisatie-)schema’s, kaartjes en 
technische handboeken. 

Natuurlijk zijn er qua gebruikers grote 
verschillen. De een zal een CAD(D)- 
pakket voor industriële vormgeving 
gebruiken, een ander bouwt er een 
schuurtje mee en de volgende wil er 
zijn teksten mee verfraaien. Gaat het 
u daarentegen alleen om wat kleurige 
schetsjes op het scherm, dan is het 
goedkoper om een gewoon paint- 
pakket zoals DeLuxe Paint II aan te 
schaffen. Dat werk nog makkelijker 
ook. 


Wat is nodig voor CAD? 

De minimum-configuratie voor bu- 
reau-CAD(D) verschilt sterk per ge¬ 
bruiker. Er is bijvoorbeeld een heel 
verschil tussen een tekening voor het 
ontwerp van een hydraulische pomp 
en een illustratie voor desktoppublis¬ 
hing. Nietemin zijn er altijd dezelfde 
basiscomponenten nodig. Centraal 
staat de PC in dit geval een Amiga 
500,1000 of 2000. Voor het zwaarde¬ 
re werk raden we een model 2000 
aan. De standaard Commodore 1081 
kleurenmonitor is voor doorsnee 
CAD-werk net voldoende. Een pro¬ 
fessional ambieert waarschijnlijk een 
monitor met een hoger oplossend ver¬ 
mogen en de bijbehorende extra vi- 
deohardware. 


Gedetailleerde graphics vreten zoals 
bekend RAM- en schijfruimte. Zorg 
daarom voor minimaal 1 MB (liefst 2-4 
MB) aan vrij RAM in de Amiga en mi¬ 
nimaal twee drives waarvan bij voor¬ 
keur één een harddisk is. De printer 
of plotter bepalen de kwaliteit van de 
uitvoer. Met name bij kleur en de wat 
grotere tekeningen verdient een com¬ 
patibele plotter de voorkeur. Een 
kleuren-matrixprinter kan in deze een 
goedkoper alternatief blijken. Bij 
zwartwit voldoet een laserprinter met 
de juiste drivers prima. 

Verder is er nog een invoerdevice 
nodig. Behalve tekenen met de muis 
is er keuze uit trackballs, lichtpennen, 
digitizer tablets en pucks. De profes¬ 
sional prefereert de dure puck met bij¬ 
behorend digitizer tablet. Met het toet¬ 
senbord alleen zijn niet alle tekenop¬ 
ties bruikbaar! Bovendien werkt het 
keyboard in vele gevallen onhandig. 
Voor supersnelle rekenkracht komt 
tenslotte een Motorola 68020 versnel- 
lerkaart of mathematische 68881 co- 
processor in aanmerking. 

Draw 2000 

De toevoeging 2000 suggereert dat er 
een Amiga 2000 nodig zou zijn. Dat is 
gelukkig niet zo, hoewel de software 
van minimaal 1 MB aan vrij RAM en 
twee diskdrives uitgaat. Voor de goe¬ 
de orde probeerden we Aegis Draw 
2000 ook op een oude Amiga 1000 
met 512 KB aan boord hetgeen voor 
eenvoudig tekenwerk redelijk ging. Bij 
gedetailleerde en grote tekeningen 
blijkt die 512 KB echter al snel te krab 
met alle noodlottige gevolgen van 
dien. Houdt u daarom aan de pakket- 
specificaties. 

Volgens de inleiding van Aegis biedt 
Draw 2000 zo ongeveer het Auto- 
CAD-mekka op de Amiga. Dat is na¬ 
tuurlijk lichtelijk overdreven, hoewel 
de software in onze praktijktest hoog 
scoorde. Voor kleinere industriële of 
technische ontwerpen, architectuur 
en met name studie van CAD(D), 
desktoppublishing (IFF-files) en te¬ 
kendoeleinden is het pakket heel ge¬ 
schikt. Bovendien maakt de gunstige 
prijs veel van de missende AutoCAD- 
opties (die de kleine gebruiker toch 
niet nodig heeft) goed. 

Aegis Draw 2000 werkt in principe net 
als elk ander CAD(D)-pakket. De soft¬ 
ware verschaft de gebruiker een ven¬ 
ster waardoor hij/zij naar de tekening 
kijkt. Het venster laat slechts een deel 
(in detail) van de grotere tekening 
zien en heeft een lagere resolutie dan 
het uiteindelijke printer/plotter-resul- 
taat. De mate van zoom-in bepaalt 
hoe gedetailleerd u de tekening be- 
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kijkt. Binnen het geopende venster 
wordt het desbetreffende deel van de 
tekening bewerkt. Met 1 MB of meer 
aan vrij RAM in (of aan) de Amiga is 
het mogelijk om tegelijkertijd met 
meerdere geopende vensters te wer¬ 
ken. Die geopende vensters kunnen 
dan delen van één tekening bevatten 
of meerdere tekeningen die later tot 
één geheel gekombineerd zullen wor¬ 
den. Centraal in het CAD(D)-gebeu- 
ren staat het design-proces. Onder 
design wordt het feitelijke tekenwerk 
verstaan. Dat kan bestaan uit: 

• Het inladen van objecten uit de 

database met tekenelementen en 
deze objecten verder bewerken. 

• Het automatisch laten tekenen 

van figuren volgens de opgege¬ 
ven specificaties plus de eventu¬ 
ele verdere bewerkingen. 

• Het vrij tekenen, d.w.z. uit de 
losse muispols tekenen. 

• Een combinatie van de drie hier¬ 
voor vermelde mogelijkheden. 

Een groot verschil met een conventio¬ 
neel paintpakket is dat Draw 2000 de 
tekening, drawing, uitsluitend een 
representatie van de feitelijke teke¬ 
ning laat zien. De oorspronkelijk gra- 
phicsplaat blijft met alle bijbehorende 
specificaties gestructureerd in het in 
het RAM-geheugen zitten. Bij een wij¬ 
ziging of bewerking verandert slechts 
de display voor de desbetreffende 
verandering(en). Dat maakt zeer ge¬ 
detailleerd inzoomen, bewerking in 
vensters, elders onder gewijzigde 
specificaties optekenen, afdrukken 
onder een hogere resolutie dan die 
van de display, laagsgewijze-opbouw 
van de tekening en ingewikkelde be¬ 
werkingen mogelijk. 

De praktijk 

Aegis Draw 2000 is een gereed- 
schap-georiënteerd CAD(D)-pakket. 
D.w.z. de gebruiker tekent met de 
(muis-)hand op het monitorscherm en 
pakt daarvoor één van de aanwezige 
tools. Een tooi kan bijvoorbeeld zijn 
een tekenpen (in verschillende dik¬ 
tes), een vlakgummetje een automat¬ 
isch tekensymbool (cirkel, vierkant), 
in patroon-invultool of een resizer. 
Het toolmenu bestaat uit twee ko¬ 
lommen: de linker kolom bevat de ont- 
werpgereedschappen en de rechter 
kolom bevat de bewerkingstools. 
Aparte menu’s dragen zorg voor de 
invulling van arceringen en kleuren. 
Draw 2000 maakt onderscheid tussen 
tijdelijke en permanente tools. Tijde¬ 
lijke gereedschappen (tempory tools) 


zijn bijvoorbeeld een ERASE en een 
ZOOM IN. Het tijdelijke aspect blijkt 
uit het feit dat Draw, na beëindiging 
van de tooltaak, direkt weer naar het 
gereedschap waarmee de gebruiker 
eerst bezig was, terugkeert. 

Zoals gebruikelijk bij de Aegis Amiga- 
programma’s maakt Draw 2000 weer 
volledig gebruik van de werkbank. De 
menustructuur en muisklik-activatie 
zijn identiek en het CAD(D) werkt dan 
ook volledig menugestuurd. Het 
hoofdmenu biedt de keuze uit de op¬ 
ties: 



• Project voor het maken van nieu¬ 
we tekeningen, het inladen en sa¬ 
ven van grafische (IFF-)bestan- 
den of delen daarvan, kleuren en 
standaardinstellingen, het wissen 
van schermtekeningen en het af¬ 
drukken op printer of plotter. 

• De Edit-optie dient zoals de 
naam al aangeeft voor het bewer¬ 
ken van het tekeningdeel binnen 
één (= het actieve window) van 
de geopende vensters. Bijvoor¬ 
beeld: CUT en PASTE, COPY, 
ROTATE, RESIZE, MIRROR en 
UNDO. U kunt gehele objecten of 
delen daarvan bewerken. 

• Het Tools-submenu voor het 
creëren van de figuren en vor¬ 
men. 

• Onder Display staan de comman¬ 
do’s voor het bekijken van het ac¬ 
tieve venster. Bijvoorbeeld wel of 
geen linealen in beeld, de achter- 
grondkleur, het gebruik van ras¬ 
ters, welke laag wordt bekeken, 
de werkresolutie (640 x 400 of 
640 x 200 pixels) en het zoomni- 
veau. 

• De Options bevat opdrachten 
voor o.a. de lijndikte, afmetingen 


van de rasters, de fontkeuze, lijn¬ 
patronen, de mate van teken¬ 
nauwkeurigheid en plotterschaal. 

• Onder de Preferences staan de 
voorkeursinstellingen naar wens 
op aan of uit. 

• Het Color-menu beheerst het 
bruikbare kleurenpalet. 

Er is ook een zogenaamd Fast Menu 
dat alle tools, het kleurenpalet, de 
zoomopties en Undo in een Amiga- 
venster onderbrengt. 

De vensters kunnen op eenvoudige 
naar keuze vergroot/verkleind (resi- 
zing) en naar een andere schermpo¬ 
sitie verplaatst worden. Verder kunt u 
de Windows desgewenst openen/slui¬ 
ten en er mee door de te bekijken te¬ 
kening scrollen. 

Het Engelse hanboek is duidelijk en 
volledig en zal voor de Amiga-gebrui- 
ker die iets over computertekenen 
weet een flink eind op weg helpen. De 
finishing touch komt pas na lang oefe¬ 
nen. Oefening baart immers kunst. 

Overige specificaties 

De met Aegis Draw gemaakte teke¬ 
ningen kunnen in andere IFF- compa¬ 
tibele pakketten gebruikt worden. Bij¬ 
voorbeeld in Aegis Modeller 3D, 
Lightsl, Camera! Actionl, Video Titler 
(logo’s), Amiga dtp-software en De- 
Luxe Video. 

Een genlock opent geheel andere in¬ 
teressante perspectieven. Tekenin¬ 
gen, kaartjes, schema’s en logo’s 
kunnen rechtstreeks met bestaande 
videobeelden gecombineerd opgeno¬ 
men worden. Ook is het mogelijk om 
bestaande tekeningen met behulp 
van een videocamera en genlock bin¬ 
nen een Draw 2000-venster te halen 
en daar verder te bewerken. 

Bij het zwaardere werk komt een 
68020 versnellerkaart of een Motoro¬ 
la 68881 mathematische coprocessor 
goed van pas. De snelheidswinst be¬ 
taalt die extra investering dubbel en 
dwars terug. 

Aegis Draw 2000 biedt behoorlijk wat 
waar voor zijn geld. AutoCAD wordt 
echter niet geëvenaard en dat is ook 
niet nodig voor de beoogde doel¬ 
groep. Met name de kleinere ontwer¬ 
per, student en grafisch vormgever 
kunnen met dit CAD(D)pakket hun 
voordeel doen. Draw 2000 kost inclu¬ 
sief de coprocessorversie en hand¬ 
boek (totaal 3 schijven) ƒ 679,-. 

Inlichtingen: Altycos Imports, Zoeter- 
meer, tel.: 079-510757. 
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Een naam als Magellan doet aan een adventure over deze oude ontdekkingsreiziger 
denken. De digitale Magellaan blijkt echter een ontwikkelsysteem voor expertsyste¬ 
men te zijn. Een kunstmatig intelligent pakket dat bedoeld is om de beslissingsregels 
en kennis van de menselijke expert in een computerprogramma vast te leggen. 
Volgens de maker van Emerald Intelligence is Magellan in staat om over letterlijk elk 
onderwerp, van diagnostic tot decision support, een expertsysteem samen te stellen. 

Magellan 


Een expertsysteembouwer voor de Amiga 

H et Al-pakket Magellan versie 1.1 beoogt het op eenvoudige wijze, d.w.z. 

zonder kennis van van programmeertalen zoals LISP of PROLOG, con¬ 
strueren van een expertsysteem. De menselijke expert kan zijn/haar kostba¬ 
re kennis en ervaring zonder problemen op de ontwerpschermen (= box-fil- 
ling) invoeren. Daarbij maakt Magellaan aanvullend gebruik van eenvoudige 
IF-THEN-uitdrukkingen, graphics, animaties en mathematische berekenin¬ 
gen. Verder kan de ontwerper een eenmaal gemaakte kennisdatabase ge¬ 
makkelijk met extra informatie uitbreiden. 


llllliiiiiiiiiiiitniiiiiiiiH 



Magellan 


In principe is Magellan een venster/ 
menu/aanwijzer-interfaceprodukt, 
kortweg een system building tooi, 
voor expertsystemen. Een expert¬ 
systeem is een kunstmatig intelligent 
stuk software dat de menselijke logi¬ 
ca, ervaring en intuitie op een bepaald 
kennisgebied nadoet. Bijvoorbeeld de 
kennis van een meester-automonteur 
in een diagnosesysteem voor motori¬ 
sche problemen van de autotypen 
XYZ. Expertsystemen kunnen de 
menselijke expert tot op zekere hoog¬ 
te vervangen. Overal in het veld dure 
experts stationeren voor een weinig 
gebruikt of zeer ingewikkeld vakge¬ 
bied heeft weinig zin. In zo’n geval 
kunnen een kennissysteem op de PC 
en een vragen intoetsende geschool¬ 
de niet-expert de meeste zaken zelf 
best af. De software stelt de opera¬ 
teur, jurist, arts, technicus, monteur 
e.d. een aantal relevante vragen en 
beredeneert volgens de ingebouwde 
beslissingsregels de juiste diagnose, 
remedie of behandeling. 

Met name bij de eenvoudige, maar 
lastig te vinden problemen, ingewik¬ 
kelde behandelings- of reparatieme- 
thoden, juridische adviezen en decisi¬ 
on support (= beslissingsondersteu- 
ning) kan een expertsysteem goud- 
waard blijken. Alleen bij de echt pre¬ 
caire of zeer moeilijk te doorgronden 
gevallen is de aanwezigheid van de 
echte menselijke expert op de werk¬ 
plek nog gewenst. 


Het expertsysteem 

Een doorsnee expertsysteem bestaat 
uit drie belangrijke componenten: 

• De kennis-database of knowled- 
ge-base. Daar in staan alle voor 
de te nemen beslissingen nodige 
vragen, kennis, waarschijnlijkhe¬ 
den, ervaringsfeiten, plattegron¬ 
den, electronische circuits, me¬ 
chanische modellen, behande- 
lingsschema’s enz. 


• Een beslissingsmodule, de infe- 
rence engine, voor het maken 
van logische deducties, het trek¬ 
ken van conclussies en het geven 
van adviezen. 

• Een gebruikersshell, de user-in- 
terface, voor de gebruiksvriende¬ 
lijke communicatie met de gebrui¬ 
ker en het vastleggen van de ken¬ 
nis en beslissingsregels. 

Magellan wordt geheel maagdelijk bij 
u afgeleverd. De potentiële computer- 
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Expertsysteem met de drie modulen 


expert weet dus nog helemaal niets. 
Alle expertise dient nog door de ken¬ 
nisingenieur te worden ingevoerd. 
Dankzij de relatieve eenvoud van de 
bediening en de wijze van systeem¬ 
ontwerp kan elke expert of toekomsti¬ 
ge gebruiker de benodigde kennis, re¬ 
gels en feiten zelf invoeren. 

De inference engine 

De “gevolgtrekkingsmachine” van 
Magellan beschikt over alle gereed¬ 
schappen om een goede digitale be¬ 
slisser te ontwerpen. In de meeste ge¬ 
vallen zal de logische deductie bij de 
vraagstelling van de gebruiker begin¬ 
nen. Wat wil de vraagsteller weten? 
Zodra de database de vraagstelling 
onderkend heeft gaat de inference 
engine aan de slag. De knowledge- 
database van de expert- beslissings¬ 
regels wordt gesorteerd op die regels 
die kunnen helpen bij het vinden van 
de juiste oplossing of advies. 

Er zijn twee belangrijke redeneerpro¬ 
cessen: 

• Het volgens de ingetypte gege¬ 
vens naar een bepaalde conclu¬ 
sie toe redeneren. Men spreekt 
van foreward chaining. Deze 
techniek wordt vooral gebruikt bij 
(productie-)planning en response- 
expertsystemen. Daarbij staan 
tijdsafhankelijke beslissingsregels 
centraal. 

• Een bepaalde conclusie wordt op 
zijn mogelijke waarheid getoetst. 
Men spreekt van backward chai¬ 
ning. Een techniek die veel ge¬ 
bruikt wordt bij problem solving, 
diagnostische en andere doelge¬ 
richte expertsystemen. 

De meeste beslissingsregels verlo¬ 
pen via de IF-THEN -structuur. Indien 
A dan geldt B. Magellaan vergemak¬ 
kelijkt de redeneerkeuze door deze 
van de gebruiker over te nemen. In 
praktijk zal de software zowel back 
als foreward chaining proberen en zo¬ 
veel mogelijk conclusies trachten te 
trekken. Het enige wat de gebruiker 
behoeft te doen is het beantwoorden 
van de gestelde vragen. 

Verder behoren o.a. tot de inference 
engine-tools en opties: (desgewenst 
automatische) zekerheidsfactoren 
met drempelwaarden, zowel IF- 
THEN- als JA-NEE-regels, een syner¬ 
getische inferencemodus, bidirectio- 
nele regels, parsing van algebraïsche 
uitdrukkingen, ondersteunende infor¬ 
matie-, grafische (IFF)- en animatiefi- 
les, het WHY? uitleg-utility, legale 
waarden en beperkingen, cellen met 


meerdere waarden en antwoorden, 
context-sensitieve hulp, een door de 
gebruiker te definiëren dictionaire met 
synoniemen, problemen opslaan (ook 
met snapshot) en weer ophalen. De 
voertaal van de inference engine, in¬ 
terface en database is het Engels. 

De knowlegde-bases 

Het aanleggen van kennisdatabases 
met Magellan kan van de grond af 
aan via de data entry-schermen of 
met behulp van al bestaande databa¬ 
ses. Magellan beschikt standaard 
over het Interface Group Module dat 
de meeste voor de Amiga gangbare 
database- en spreadsheetformats 
kan inlezen. Een tweede importeer- 
optie biedt de AREXX-compatibiliteit 
voor communicatie via de AREXX- 
standaard. Verder kan het program¬ 
ma een aantal C-broncodes inlezen. 
Met het AREXX-interface zijn inte¬ 
ressante dingen mogelijk. Wat dacht 
u bijvoorbeeld over het kunstmatig in¬ 
telligent componeren van muziek via 
een MIDI-editor? Leer Magellan de 
muziekregels en er zit een huis-tuin- 
en-keuken-componist in de Amiga. In 
de praktijk kan Magellan andere Ami- 
ga-programma’s als een soort pro- 
cesses runnen. Bijvoorbeeld de be¬ 
sturing van graphics en animaties. 

De technische specificaties van 
knowledge-base zijn: 

• Memory residente database met 
een maximale omvang die gelijk 
is aan het systeem-RAM 

• Disk-swapping tot aan de schijfli- 
miet. Bij harde schijven zijn dus 
zeer grote databases mogelijk 

• Meer dan 500 beslissingsregels in 
een 1 MB Amiga. 50- 100 regels 
in 512 KB 


• File-compressie voor efficientere 
opslag en inladen 

• Optimale (onder C met assem- 
bler) sortering, toegang en selec¬ 
tie van regels en datacellen. In C 
zou Magellan 3-8 maal sneller 
dan onder LISP draaien 

Bij grotere kennissystemen zijn RAM- 
uitbreiding en een hard disk eigenlijk 
onmisbaar. 

De user-interface 

De gebruikersinterface moet Magel¬ 
lan openleggen voor de niet-program- 
meur met veel kennis, maar weinig in¬ 
zicht in het ontwerpen van expertsys¬ 
temen. Gebruikmakend van de visu¬ 
ele oriëntatiemogelijkheden op de 
Amiga krijgt de ontwerper overzichte¬ 
lijke invulboxes voorgeschoteld. Het 
opstellen van regels en het invoeren 
van de databasekennis wordt daar¬ 
mee aanzienlijk vereenvoudigd. De 
input bestaat uit Engelse tekst, wis¬ 
kundige expressies (waaronder tal 
van variabelen) en menu-opdrachten. 
Bedenk wel dat u ook niet met Magel¬ 
lan aan het uitgebreide voorberei- 
dingswerk komt. De kennis van de ex¬ 
pert dient eerst in letters, figuren en 
beelden te worden ondergebracht al¬ 
vorens deze data ingetypt of gescand 
kunnen worden! Hoe beter en over¬ 
zichtelijker de voorbereiding des te 
gemakkelijker kunt u de vragen en 
verlangens van deze expertsysteem- 
bouwer vervullen. Dat bespaart veel 
tijd en ergernis. 

Alle begin is moeilijk en het blijkt ver¬ 
standig om eerst eens met de box-fil- 
ling te experimenteren. Lukt het om 
de vraag- en regelboxes goed in te 

vullen, dan wordt het tijd om eens ge¬ 
bruik te gaan maken van de geavan- 
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ceerde grafische, animatie-, geluids- en mathematische moge¬ 
lijkheden. Magellan maakt gemakkelijk interface-kontakt met 
andere Amiga-software. Bijvoorbeeld grafische, muziek, anima¬ 
tie-, calculatie- en dbms-pakketten. Daarmee kunt u allerlei ex¬ 
tra's zoals werktekeningen, plattegronden, simulaties, stroom¬ 
diagrammen (o.a. charts voor projectmanagement), geluidsfra- 
gementen (van storingen) en behandelingsschema’s in de ken¬ 
nisdatabase laden. 

Centraal staat het Window/Menu/Mouse-interfacedat het op¬ 
bouwen van de beslissingsregels en de invoer van data in de 
cellen verzorgt. Daarnaast beschikt Magellan over bit-mapped 
graphics en animaties, command file execution met l/O-redirec- 
tion, synthetische spraak en geluid, seriële en parallele data- 
interfaces, legal value “buttons”, printouts en de combinatie van 
tekst & graphics. Kortom al het gereedsschap om een interac¬ 
tieve expertsysteem van de grond af te kunnen opbouwen. 

Magellan is een voorbeeld van de nieuwe generatie expertsys- 
teem-bouwers. Overal waar een interactief expertsysteem voor 
het oplossen van de dagelijkse problemen gewenst is zal dit 
Amiga- pakket goed voldoen. Het construeren van een kunst¬ 
matig intelligent expertsysteem valt met behulp van het gebrui¬ 
kers- interface relatief eenvoudig te noemen. Wel zijn enige 
achtergrondkennis en het nodige voorbereidende werk vereist. 
Verder mag u natuurlijk geen wonderen van de gemaakte ex¬ 
pertsystemen verwachten. Bij de extremere gevallen zal de 
menselijke expert er weer aan te pas moeten komen. 

Magellan is een produkt van Emerald Intelligence en wordt in 
de PAL-versie halverwege 1989 verwacht. Het pakket is voor¬ 
zien van een uitgebreid Engelstalig handboek en een aantal 
demodatabases. Optioneel is een eigen Magellan-Nieuwsbrief 
verkrijgbaar. Een exacte prijs en importeur waren op het mo¬ 
ment van schrijven nog niet bekend. 

U.S 


bericht aan adverteerders 

TIJDSCHRIFTEN 

OVERZICHT 


SALA COMMUNICATIONS 


Titel 

verschijnt op 

sluit op 

PC Business INFO nr. 6/89 

17 aug. 

3 aug. 

Unix INFO nr. 5/89 

4 juli 

23 juni 

Computer INFO nr. 10+11/89 

17 aug. 

10 aug. 

Commodore INFO nr. 5/89 

27 juli 

13 juli 

MSX INFO nr. 3/89 

7 sept 

24 aug. 


Voor meer informatie bel: 020-273198 (fax. 020-253280) 


Sala Communications 
Weesperstraat 103, 1018 VN Amsterdam 
















Amigo 


Met een genlock-interface voor de Amiga is het mogelijk om grafische computerbeel¬ 
den en titels met videopnamen te combineren. Genlocks zijn tegenwoordig in alle prijs- 
en de daaraan verbonden prijsklassen verkrijgbaar. Professionele genlock-interfaces 
kosten rond de ƒ 4.000,- en dat is te duur voor de gemiddelde amateur. Een voor de 
thuis-videostudie goed functionerende Amiga-genlock kost net iets minder dan 1.000 
gulden. We bekeken in deze categorie de Rendale A8802 voor u. 

Rendale A8802 Genlock 


Budget-prijs genlocking op de Amiga 

D e Amiga 500,1000 en 2000 staan al jaren lang in het middelpunt van de 
groeiende belangstelling voor desktop video (DTV). De grafische pres¬ 
taties en animaties van deze machines zijn beroemd en vragen gewoon om 
combinatie met life opgenomen videobeelden tot een flitsende moderne 
productie. Redelijk geprijsde PAL videokaarten en genlocks brengen tegen¬ 
woordig de ‘videostudio op het bureau’ binnen het bereik van de Amiga- 
hobbyist en kleine videoproducent. 


Genlockers combineren zoals gezegd 
computervideo- met bestaande of life 
opgenomen videobeelden. Men 
spreekt ook wel van beeldmixen. Be¬ 
kend zijn de titelletters die over de vi¬ 
deobeelden heenlopen, omroeplo- 
go’s en de combinatie van animatiefi- 
guren met echte spelers. Enkele mo¬ 
derne videocamera's beschikken al 
standaard over een beeldgeheugen 
of ingebouwde titelgenerator en ma¬ 
ken on the spot titels of voegen deze 
achteraf nog toe. De mogelijkheden 
van dit soort cameratrucjes zijn echter 
beperkt in vergelijking met wat een vi- 
deocomputer zoals de commodore 
Amiga allemaal kan. 

Het gebruik van een computer als af- 
titelaar en grafische effectgenerator 
biedt dus veel meer mogelijkheden 
dan een gewone ingebouwde of losse 
titelgenerator voor video. Niet alleen 
kan de videomaker kiezen uit meer¬ 
dere fonts (o.a. van Zuma) in vrijwel 
elke bruikbare grootte en kleur, ook 
kan men de titels laten scrollen, rote¬ 
ren om een X-, Y- of Z-as, van scha¬ 
duw- of stroboscoop-effecten voor¬ 
zien, creatief de belichting (lichtval) 
besturen en van vorm laten verande¬ 
ren. Professionele titelsoftware zo¬ 
als bijvoorbeeld TV*TEXT weet wel 
raad met dergelijke effecten en in een 
mum van tijd beschikt u met de Amiga 
over een echte titelstudio. 

Behalve titels kunnen ook grafieken, 
geanimeerde poppetjes of logo's, gra¬ 
fische figuren, artwork en met paint- 
pakketten ontworpen achtergronden 



met life/bestaande videobeelden ge¬ 
combineerd worden. Hiervoor kunt u 
een conventioneel tekenpakket zo¬ 
als DeLuxe Paint III of speciale vi¬ 
deosoftware, bijvoorbeeld DeLuxe 
Video en Aegis Animator, gebruiken. 
Reclamebureau’s, kabelkranten, om¬ 
roepen, filmmakers en videohobbyis- 
ten passen dit soort videocomputer- 
technieken in combinatie met een 
genlock-interface steeds meer toe. 



Hoe werkt een Genlock? 

Een genlock heeft doorgaans twee vi- 
deo-ingangen en één of meer video- 
uitgangen. Op de video-in worden 
twee verschillende videobronnen 
aangesloten. Bij de A8802 zijn dat de 
Amiga via een korte 23-polige RGB 
D-connectoren een composiet-video- 
ingang (CVBS BNC-in) voor een vi¬ 
deocamera, videorecorder, beeld¬ 
plaat, een andere computer, een sa¬ 
tellietsignaal of een professionele 
“black and bursf-input. De video-ti- 
ming-signalen voor line, frame en co- 
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lour burst van de Amiga en de externe 
videobron worden door het interface 
gelocked. Dat wil zeggen dat de Ami¬ 
ga en externe videobron zodanig op 
elkaar afgestemd worden, dat beide 
signalen dezelfde kleur op dezelfde 
tijd en plaats op het scherm (of naar 
de videorecorder) geven. Men 
spreekt hierbij ook wel van synchroni¬ 
seren van twee videobronnen. Zijn de 
beide videosignalen eenmaal gelo¬ 
cked, dan kan de electronica tussen 
het Amiga- en externe videosignaal 
switchen. Daarvoor gebruikt de gen¬ 
locker een high speed videoschake- 
laar. Met behulp van deze schakelaar 
is het mogelijk om videobeelden als 
het ware over elkaar heen (overlay) 
te leggen, waardoor gemixde video¬ 
beelden ontstaan. 

Behalve het eigenlijke locken vervult 
de Amiga genlock A8802 nog twee 
andere belangrijke taken: 

• (graphics encoding, het omzet¬ 
ten van het Amiga RGB- signaal 
in een voor de monitor en/of vi¬ 
deorecorder bruikbaar composiet 
PAL- signaal. Voor het functione¬ 
ren van de encoder is een PAL- 
referentiesignaal nodig om de 
computersignalen opnieuw te ti¬ 
men. 

• Video overlay switching, het 

schakelen tussen het computer¬ 
en het externe videosignaal. Er 
zijn vier schakelmogelijkheden: 
Amiga Display, display externe vi¬ 
deobron (default), de background- 
en foreground-modus. In de 
background-modus wordt de 
achtergrondkleur doorzichtig (tran¬ 
sparant) en het externe video¬ 
beeld (CVBS-signaal) zichtbaar in 
mixage met de computer gra¬ 
phics, bijvoorbeeld een aftiteling. 
Het register 0 wordt hier als de 
schakelaar gebruikt. In de fore¬ 
ground-modus is zwart de door¬ 
zichtige kleur. Daarmee kan een 
(voor- en achtergrond-)kleur 
transparant gemaakt worden om 
een extern videobeeld in een ven¬ 
ster te mixen. 

Voor de expert is er de mogelijkheid 
om Black and Burst, het aanbieden 
van een effen (zwarte) achtergrond 
voor overlays te gebruiken. De ama¬ 
teur zal in de meeste gevallen een 
normaal composiet videosignaal voor 
de overlay gebruiken. 

De A8802 

De door Cat & Korsh en Alldata geïm¬ 
porteerde A8802 genlock is groten¬ 
deels gelijk aan de wat oudere 8702- 


versie. De oude versie was te koop 
met en zonder twee drukknoppen 
voor het switchen van de verschillen 
videomodi. Op de door ons geteste 
Rendale 8802 werd dit schakelen 
echter softwarematige van uit de Ami¬ 
ga gestuurd. Na installatie van de 
software kunt u de verschillende vi- 


deomodes met de eerste vier functie¬ 
toetsen of de cijfers 1 t/m 4 besturen 
Uiteraard beschikt de A8802 over alle 
hiervoor genoemde video-mogelijk- 
heden en heeft drie verschillende 
aansluitingen: 

• Een gewone composiet BNC-uit- 
gang voor het aansluiten van een 
videorecorder of monitor. Uit deze 
output komt het gecombineerde 
(overlay) PAL-signaal. 

• Een BNC CVBS video-ingang 

voor de video-input uit kamera, 
VCR of beeldplaatspeler 

• De 23-polig RGB Amiga D-con- 
nector voor: Rechtstreekse aan¬ 
sluiting van de eigen Amiga-moni- 
tor en -videohardware. 

Het genlock-interface is een net plat 
metalen kastje ter grootte van een 
pocketboek. Uit dit kastje komt een 
lintkabeltje voor aansluiting op de 
Amiga D-connector. Dit kabeltje bleek 
voor onze Amiga 1000 wat aan de 
korte kant om het interface gemakke¬ 
lijk bereikbaar naast de machine te 
zetten. Gelukkig is de besturing ge¬ 
heel softwarematig, zodat je niet 
steeds aan moeilijk bereikbare knop¬ 
pen behoeft te wriemelen. Lastig is 
wel het los- en vastmaken van de 
BNC pluggen als de genlock achter 
de Amiga zit. 

Het aansluiten van de genlock geeft 
geen probleem, zolang men de nodi¬ 
ge verloopjes in huis heeft. Rendale 
levert de korte lintkabel er natuurlijk 
bij. Deze is van een afwijkend TTL- 
type. Zelf er eentje solderen kan tot 
het opblazen van de RGB-poort lei¬ 
den. Voor de videokabeltjes moet u 
zelf zorgen. Videorecorders gebrui¬ 


ken tulp-, SCART- en BNC-pluggen. 
Voor tulp en Scart zijn verloopstek¬ 
kers en kabels bij elke goede video- 
of electronicazaak te koop. Neem wel 
enkele tientjes mee want goedkoop 
zijn deze supplies beslist niet! 


De videopraktijk 

Eerlijk gezegd zijn we altijd een beetje 
sceptisch ten opzichte van amateur- 
genlocks. Professionele videokwali- 
teit kost geld en de amateur-hardware 
is relatief gezien goedkoop. Daar 
kwam nog bij dat de eerste amateur- 
genlocks een ronduit slechte beeld¬ 
en opnamekwaliteit afgaven. 

Dankzij de sterk groeiende DTV-po- 
pulariteit van de Commodore Amiga’s 
en de electronische ontwikkelingen 
zijn de gelock-prijzen flink gedaald. 
Topmodellen gaan voor ƒ 2.000,- tot 
ƒ 4.000,- over de toonbank. Een rede¬ 
lijk tot goed amateurmodel kost iets 
van 1.000 piek. Dat laatste gaat ook 
op voor de Rendale A8802 Genlock. 
Al bij de eerste tests bleek het alle¬ 
maal best mee te vallen. Zeker als je 
van een kwalitatief goede (Super) 
VHS videorecorder en -camera ge¬ 
bruikt maakt. Rest nog een kwaliteits- 
tape en de gegenlocked opnamen 
zien er best aardig uit. Het is allemaal 
nog niet op en top broadcasting- kwa¬ 
liteit, maar de A8802 kan aardig op 
het semiprofessionele front meeko¬ 
men. Niet alleen op de monitor, maar 
ook op de videorecorder. 

Het maken van overlays en het swit¬ 
chen tussen de verschillende modes 
kan iedereen in vijf minuten leren. 
Genlocker aansluiten op de Amiga, 
externe videobron en output, software 
(kickstart en video- of paintpakket) in 
de Amiga, de besturingssoftware la¬ 
den en de videoproductie in de bu- 
reaustudio kan beginnen. Grote crea¬ 
tieve mogelijkheden bij een goede vi- 
deokwaliteit. N.B.: de RGB-kwaliteit 
van de Amiga- graphics blijft door een 
grotere bandbreedte en andere kleur- 
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codering altijd superieur ten opzichte 
van registratie in composiet-video. 
M.a.w., de op videotape gerigistreer- 
de Amiga- graphics zullen altijd wat 
tegenvallen. Experimenteer met ver¬ 
schillende achtergronden en kleur¬ 
combinaties voor het verkrijgen van 
de beste resultaten. 

Het gebruik van een enhancer voor 
het wegwerken van de onvermijdelij- 


professioneel blauw overlay-venster. 
Gebruik nimmer dezelfde voor- en 
achtergrondkleur, want dan wordt de 
achtergrond niet doorzichtig. Register 
0 is dan inactief. Verder kent de 
A8802 nog de Amiga-modus (alleen 
de Amiga-graphics zijn zichtbaar) en 
de video-modus (allen de CVBS vi- 
deo-input is zichtbaar). De resolutie 
bedraagt naar keuze medium in 32 



Een toepassing van de A8802 Genlock 


ke kopieerverliezen kan soms nood¬ 
zakelijk blijken bij een wat lagere 
VHS-kwaliteit. Bij SVHS vallen, on¬ 
danks het feit dat de genlock de 
SVHS-aansluitingen ontbeert, de ko¬ 
pieerverliezen erg mee. 

Na het opstarten zijn de default video¬ 
beelden op de achtergrond en com- 
puter-graphics op de voorgrond, de 
background-modus. De kickstart- 
ikoon wandelt eerst door het beeld 
heen. Dat verdwijnt na het inladen 
van de werkbank of een video/paint- 
pakket. Voor het veranderen van de 
videomodus gebruikt de videoprodu- 
cent de meegeleverde besturings- 
software. 

Het effect van de fore- en back¬ 
ground-modus is afhankelijk van de 
gebruikte kleurinstellingen. In de 
background-modus krijgt de gebrui¬ 
ker de beste resultaten als er ook een 
zwarte achtergrondkleur gekozen 
wordt. Dat voorkomt het doorlopen 
van de kleuren. In de foreground- 
modus, waar de Amiga-graphics 
transparant zijn, verdient het aanbe¬ 
veling om de preferences naar smaak 
in te stellen. Aanbevolen wordt om bij 
de Preferences Rood en Groen min¬ 
der dan 50% in te stellen en blauw op 
full te zetten. Hierdoor ontstaat een 


kleuren of high bij 16 kleuren. Let op 
dat de Genlock een interlace-mode 
van de Amiga verwacht, anders werkt 
het interface niet. 

Een klein probleempje geeft het enco- 
deren van het Amiga RGB-signaal. 
Zonder een extern referentiesignaal 
komt er niet veel bijzonders uit de vi- 
deo-out. De gebruiker zal de gen¬ 
locker dus een tuner- of ander ge¬ 
schikt videosignaal (kamera, VCR) 
moeten aanbieden voor het in fraaie 
PAL-kleuren vertonen van de Amiga- 
graphics. Dan behoeft de A8802 niet 
“droog te zwemmen”. Een alternatie¬ 
ve mogelijkheid is het aanbieden van 
een zwart-wit-signaal voor het creë¬ 
ren van zwart-wit-overlays. 

Opstelling 

De video-configuratie is uiteraard af¬ 
hankelijk van het beoogde doel. Vi- 
deomakers zullen de Amiga met gen¬ 
locker gebruiken voor mixages en af¬ 
titeling. Daarvoor zijn nodig een vi¬ 
deocamera of videorecorder voor 
weergave, een opnamerecorder en/of 
output-monitor. Bij voorkeur maakt 
men gebruik van meerdere monito¬ 
ren: een voor de Amiga zelf en een 
voor het controleren van het compo- 


siet-outputsignaal. Let er bij het ge¬ 
bruik van een monitor op dat deze op 
AV/VCR staat, anders wordt de out¬ 
put niet correct weergegeven. 

Bij interactief onderwijs maakt men 
gebruik van een door de Amiga ge¬ 
stuurde beeldplaat- of videorecorder. 
Het interactieve Amiga- programma 
stelt de vragen of verschaft de bege¬ 
leidende teksten. De externe video- 
bron levert de bijbehorende beelden. 

Gebruiksmogelijkheden 

De toepassingen van de Amiga met 
genlock zijn legio. Behalve videopro¬ 
ducties, reclamepresentaties, slide- 
shows en interactief onderwijs zijn er 
nog tal van andere gebruiksmogelijk¬ 
heden. Alldata noemt zelf trainings- 
systemen, het gelijktijdig bekijken van 
twee videobronnen (bijvoorbeeld een 
computer- en een TV-programma), in- 
formatie-terminal en toepassing als 
een video- database. 


Conclusies en opmerkingen 

De A8802 Genlock is een welkome 
aanvulling voor de videoproducent, 
DTV-hobbyist of onderwijskundige 
die met de Amiga werkt. Voor ƒ 999,- 
krijgt de koper een kwalitatief goede 
amateur-genlocker met tal van krach¬ 
tige en creatieve mogelijkheden. Ver¬ 
wacht echter geen wonderen van 
deze genlocker. Het geringe kwali¬ 
teitsverlies (high frequency details) 
van het omzetten van RGB naar PAL- 
composiet blijft zichtbaar. Hetzelfde 
geldt bij opname op gewone VHS-vi- 
deorecorders en vertoning op de huis- 
kamer-TV. Deze achteruitgang ligt 
niet aan de genlocker, maar is inhe¬ 
rent aan de kwaliteit van de overige 
randapparatuur. Met SVHS-appara- 
tuur en Super High Grade videoban¬ 
den kunnen de resultaten wat opge- 
pept en de kopieerverliezen beperkt 
worden 

De A8802 kan het signaal van een 
VCR of Camrecorder goed tracken 
zolang dit van een redelijke kwaliteit 
is. Een matige bandkwaliteit en ver¬ 
sleten of vuile recorderkoppen geven 
een slecht resultaat. Hetzelfde geldt 
voor videotrucages waarbij niet-stan- 
daard-synchronisatiesignalen ge¬ 
bruikt worden. 

Afgezien van de hier gemaakte kant¬ 
tekeningen biedt de A8802 redelijk 
veel waar voor zijn geld. Zeker in 
deze prijsklasse. 

U.S 
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De zon schijnt, de computer staat op het tuintafeltje. Een angstaanjagend gevoel 
bekruipt je. Je wilt we! een routine schrijven maar je beheerst de taal niet goed 
aenoeqü! Anqst, paniek en ontreddering zijn daar.... maar wat ziet uw oog? Nee het 
is geen vliegtuig, geen raket of een ballon, nee het is de SUPERAMIGA C CURSUS!!!! 


AMIGA 


W at zullen we deze keer eens 
doen, 50 pop of een envelop. 
Nou geeft u mij maar een envelop. 
Dat kan. Wat voor nummer had u 
willen hebben? Nummer 61, dat is 
namelijk de leeftijd van mijn man en 
mij opgeteld. Oh, wat leuk, dan heeft 
u zeker nog geen kinderen. Nee, die 

hebben. HO STOP, we dwalen 

heel erg ver af. Na deze aflevering 
gaan we het dan eindelijk hebben 
over het onderwerp waar de titel van 
deze cursus voor staat, AMIGA C. 
Nu zijn we nog gedwongen enkele 
noodzakelijke C begrippen te be¬ 
handelen anders ziet u straks de bo¬ 
men niet meer door het verzuurde 
bos. 

SWITCH en CASE 

De vorige keer waren we nog bij de 
besturingsstromen. Nu nog even een 
staartje hiervan. SWITCH en CASE 
zijn functies waarvan in BASIC geen 
equivalenten zijn te vinden. De 
ON/GOTO (GOSUB) mogelijkheid 
komt nog het dichtste bij. Met 
SWITCH/CASE biedt de mogelijkheid 
zich aan op een simpele wijze een 
programmaloop te beïnvloeden. Aan 
de hand van een aan de SWITCH 
functie doorgegeven variabele wordt 
met een CASE functie een conditie 
getest. Pfff, wat een rotzin. Het komt 
er dus simpelweg op neer dat bij 
SWITCH aangegeven wordt op wat 
voor variabele en waarde getest moet 
worden, bij de CASE functie(s) zet u 
dan een aantal mogelijke waarden op 
een rij. Een voorbeeld lijkt ons nu il¬ 
lustratiever dan deze hele woorden¬ 
brij. 

main () 

{ 

int a; 

scanf("%2d",a); 


switch(a) 

{ 

case 1: 

print("U heeft de 

waarde 1 



ingevoerd\n"); 
break; 
case 2 : 

printfC'Goh, weet je, 
ik heb een 2 
aangetroffen!!!\n") ; 
break; 
default; 

printf("Nou, ik weet 
1 ding, u heeft 
geen 1 of een 2 inge¬ 
voerd ! \n) ; 

break; 

} 

Wederom een voorbeeld dat blaakt 
van de simpelheid. Het zal wel aan 
het weer liggen of zo. Ook hiervan 
hebben we een BASIC versie probe¬ 
ren te ritselen. En zoals gewoonlijk 
lukte dit (met moeite) weer. 


INPUT a 

ON a GOTO labell,label2 

PRINT "Nou ik weet 1 ding, 
u heeft geen 1 of een 2 in¬ 
gevoerd ! " 

END 

labell: 

PRINT "U heeft de waarde 1 
ingevoerd" 

END 

label2; 

PRINT "Goh, weet je, ik heb 
een 2 aangetroffen!!!" 

END 

Zoals u ziet kost het in BASIC nogal 
wat moeite om dezelfde program- 
mastroom te realiseren. De program- 
mastroom moet afgebroken worden 
nadat de PRINT uitgevoerd is. In BA¬ 
SIC staan hier een tweetal comman- 
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do’s voor. het eerste is definitief. Het 
END commando, het zorgt ervoor dat 
de programmastroom, BATSSS!, af¬ 
gebroken wordt. Als tweede is er dan 
nog de GOSUB/RETURN combinatie 
waardoor het nog mogelijk is om in 
het programma te blijven. In C is dit 
iets eenvoudiger. Het BREAK com¬ 
mando zorgt ervoor dat het binnen de 
accolades ‘{’ en ’}’ aanwezige deel 
routine wordt onderbroken. De pro- 
grammaloop gaat naar het eerstvol¬ 
gende hogere niveau, dus in dit geval 
zijn dat de accolades die het ‘mainQ’ 
programmablok aanduiden. Als laat¬ 
ste treffen we dan nog de ‘default 
case label’. Als deze binnen het 
SWITCH blok staat, dan zal het pro¬ 
grammablok dat bij het ‘default case 
label’ hoort, uitgevoerd worden als 
geen van de overige CASES uitge¬ 
voerd kon worden. Het is dus een DE¬ 
FAULT! 

GOTO 

Ook in C bestaat het commando 
GOTO. Toch neemt deze gelijknami¬ 
ge tegenvoeter van het veelgebruikte 
BASIC commando niet zo’n promi¬ 
nente plaats in. De taal C biedt over 
het algemeen betere middelen om 
een programma te schrijven. Toch 
kan het soms voorkomen dat het 
commando persé nodig blijkt te zijn. 
Bijvoorbeeld om uit een binnenste lus 
van WHILE/IF/SWITCH CAST con¬ 
structie naar een van de buitenste la¬ 
gen te gaan. Goed, in dit geval is het 
commando gerechtvaardigd. Alle 
overige smoezen keuren we zonder¬ 
meer af. Het commando GOTO heeft 
een algemene syntax: 

GOTO [labelnaam] 

Bij de labelnaam dient u er op te letten 
dat er een dubbele punt (:) achter ge¬ 
zet moet worden. Een voorbeeld hier¬ 
van zullen we niet geven, wel een al¬ 
gemene illustratie. 

main () 

{ 

if (.) 

{ 


goto sprong; 


} 

sprong:; 

} 

Functies 

We spreken al afleveringen lang van 
functies in plaats van commando’s. In 
feite is dit niet geheel juist. Je spreekt 


van een functie als van het program- 
madeel een waarde terug verwacht 
mag worden. Anders heet dat blok 
een procedure. In geen geval kunnen 
we spreken van een commando. Dit 
laten we dus ook volledig achterwe¬ 
ge. We zullen het alleen gebruiken als 
het echt van toepassing is. Goed, de 
functies en procedures. Het is in C 
mogelijk zelf functies en procedures 
aan te maken. Dit is zelfs aan te raden 
daar het de leesbaarheid van een pro¬ 
gramma sterk vergroot. Hoe krijgen 
we dit nu voor elkaar? In C worden 
procedures en functies op nagenoeg 
de zelfde wijze in elkaar gefrutseld. 
Dit in tegenstelling tot de taal PAS¬ 
CAL. Hoe maken we nu een proce¬ 
dure of een functie? Vrij simpel. U be¬ 
denkt een naam. U geeft de variabe¬ 
len aan die de functie of procedure 
nodig heeft en u geeft aan wat voor 
type deze variabelen zijn. Wat is dan 
het verschil tussen het opstellen van 
een functie en een procedure. Dat 
komt nu. Daar een functie een waarde 
terug moet leveren, zult u aan moeten 
geven van wat voor type deze waarde 
moet zijn. En voordat u de functie- 
body (het geheel met de accolades, 
weet u nog wel?) afsluit, moet u de 
waarde aan de hoofdroutine terug ge¬ 
ven. Dit doet u met behulp van de RE- 
TURN() functie. In fig. 1 ziet u de al¬ 
gemene structuur van zo’n proce¬ 
dure. 

U ziet, als u eenmaal een functie of 
procedure aangemaakt heeft, kunt u 
hem altijd weer aanroepen in uw pro¬ 
gramma met de naam die u de proce¬ 
dure of functie gegeven heeft. Nog 
even een opmerking omtrent het ‘cas¬ 
ten’ van de functies. Standaard zal de 
compiler aannemen dat de terugge¬ 
geven waarde van het type INT zal 


zal de teruggegeven waarde van het 
type INT zijn. In dit voorbeeld hebben 
we het alleen maar er voor vermeldt 
om aan te geven dat hiervoor de ‘type 
casting’ plaats zal moeten vinden. 
Nog even voor de volledigheid, ‘type 
casting’ zal u moeten doen als een 
variabele van het ene naar het andere 
type moet worden omgezet. Stel u 
heeft een variabele ‘a’ die van het 
type INT is en u wil een berekening 
met ‘floating point' getallen uitvoeren 
dan zou u de variabele als volgt kun¬ 
nen ‘casten’, (float)a. 

Goed, een opmerking voor de Aztek 
compiler gebruikers. Na enige erva¬ 
ring is ons gebleken dat functies die 
vanuit andere procedures of functies 
aangeroepen worden, boven deze 
functie of procedure vermeld moeten 
staan. Doet u dit niet, dan zal er een 
compiler-foutmelding volgen. Zo, 
weer even terug naar de theorie. Va¬ 
riabelen die u binnen een functie of 
procedure declareert zullen ‘lokale 
variabelen’ zijn. Dit wil zeggen: deze 
variabelen verliezen hun waarde als 
de functie of de procedure verlaten 
wordt. Een compiler zal de in een an¬ 
dere procedure of functie gedecla¬ 
reerde lokale variabelen niet herken¬ 
nen en vermelden dat de variabelen 
niet bekend zijn. Een oplossing voor 
dit probleem biedt zich aan in de vorm 
van ‘globale variabelen’. Dit zijn varia¬ 
belen die NA de INCLUDE’S en 
VOOR de eerste functies of proce¬ 
dures vermeld worden. Deze variabe¬ 
len behouden hun waarde door het 
gehele programma. Toch is het ver¬ 
standig niet al teveel variabelen glo¬ 
baal te laten zijn, daar dit veel geheu¬ 
genruimte in beslag neemt en het niet 
van nette programmering getuigt. Een 
voorbeeld van lokale en globale varia¬ 
belen. 


moeten zijn. Dus als u niets vermeld 


Procedure: 

[naam](variabele1,variabele2,etc..) 

[type] variabelel; 

[type] variabele2; 

{ 

(De eigenlijke procedure) 

} 

Functie: 

[type] [naam] (varl.,var2.,etc. . ) 

[type] variabelel; 

[type] variabele2; 

{ 

(De eigenlijke functie) 
return(WAARDE); 

} 

De doorgekregen waarde is 10 Ontvangen waarde :27 
fig. 1 algemene procedure 
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#include "stdio.h" 
int a; /* globale varia¬ 
bele * 
main () 

{ 

int b,c; /* lokale varia¬ 
belen */ 

a=17 ; 
b=c=25; 

printf("a,b,c 
:%2d,%2d,%2d\n",a,b,c); 
test () ; 

} 

test() /*let op de fout in 
printf () */ 

{ 

printf("a,b,c 
:%2d,%2d,%2d\n",a,b,c); 

} 


De INCLUDE’S 

We hebben het er daar net al over ge¬ 
had, include statements. Dit is weer 
een van de aantrekkelijke eigen¬ 
schappen van de taal C. Met een IN¬ 
CLUDE statement is het mogelijk be¬ 
paalde programmagedeelten in uw ei¬ 
gen programma te betrekken. Stel u 
gebruikt vaak een routine dan zou u 
deze apart op schijf kunnen zetten. 
Voordat uw eigenlijke programma be¬ 
gint, haalt u deze routine dan weer in 
het programma met behulp van het 
INCLUDE statement. In Amiga C 
wordt veelvuldig van include’s gebruik 
gemaakt. Dit alleen al vanwege het 
feit dat de Amiga veel functies en 
structures nodig heeft om al haar ei¬ 
genschappen te kunnen beinvloeden. 
Een include statement begint altijd 
met het teken ‘#’ en vervolgens ‘inclu¬ 
de’ met daarachter tussen haakjes of 



Een C compiler zal dit voorbeeld niet 
slikken. Immers, in de procedure 
‘test()’ worden in de printf() functie de 
variabelen b en c aangeroepen. Deze 
variabelen zijn niet in de procedure 
1est()’ gedeclareerd maar in main(). 
Dus het zijn lokale variabelen, immers 
main() is ook een functie. Alle binnen 
de accolades gedeclareerde variabe¬ 
len zijn lokaal. Een oplossing voor het 
bovenstaande voorbeeld is b en c ook 
globaal te maken of de waarden van 
de variabelen in de parameter-lijst 
van de functie test() door te geven, 
bijvoorbeeld; test(b,c);. De proce¬ 
dure ‘testQ’ moet dan ook een aan¬ 
passing krijgen, 
test(r,s) 
int r,s; 

{ 

printf ("a, (b=r), (c=s) 

:%2d,%2d,%2d\n", 
a, r, s) ; 

} 


groter-dan- en kleiner-dan-tekens de 
naam van de file. 

Structure’s 

In het voorbeeld van de vorige afleve¬ 
ring, dat deze keer is afgedrukt, werd 
veelvuldig gebruik gemaakt van struc¬ 
tures. Wat zijn nu structures? Structu¬ 
res zijn wat men in de taal PASCAL 
onder de naam RECORDS verstaat. 
Een structure is dus een verzameling 
van losse gegevens die onder 1 noe¬ 
mer bereikbaar zijn. Stel, u schrijft 
een adressenbestand. Om er nu voor 
te zorgen dat u met uw gegevens ‘ne¬ 
tjes’ in het programma om kunt sprin¬ 
gen, kunt u besluiten om een aparte 
structure te maken. Deze structure 
zou er als volgt uit kunnen zien. 

struct adres { 
char naam; 
char adres; 


char postcode; 
char woonplaats; 

} ; 

Het is nu mogelijk onder de noemer 
‘adres’ de aparte gegevens ‘naam’, 
‘adres’, ‘postcode’ en ‘woonplaats’ te 
bereiken. Nu zult u zich afvragen, hoe 
dan? Juist, hiervoor zijn twee aparte 
operatoren. De zogenaamde punt- 
operator, V en de pijloperator ‘->’. 
Welke operator u gebruikt is afhanke¬ 
lijk van de wijze waarop de variabele 
gedeclareerd wordt. In dit geval zou u 
de naam als volgt uit kunnen le¬ 
zen, adres.naam. Als u nu meer ge¬ 
gevens in zou moeten voeren, wat op 
zich wel handig is bij een adressenbe¬ 
stand, dan declareert u in plaats van 
de ene naam adres een array van het 
structure adres. Het volgende voor¬ 
beeld illustreert dit. 

struct adres { 
char *naam; 
char *adres; 
char *postcode; 
char *woonplaats; 

} vermelding[100]; 

Nu kunt u onder de noemer ‘vermel¬ 
ding’ weer alle adres gegevens berei¬ 
ken. Aangezien het hier om een array 
gaat, kunt u dus 100 keer, oftewel van 
100 personen, gegevens opslaan. 
Het kan ook voor komen dat u een ei¬ 
gen structure in een INCLUDE file op¬ 
geslagen heeft. Hierbij is het persé 
noodzakelijk dat u de noemer ‘adres’ 
vermeldt. Bovenstaande structure 
kan namelijk ook in een programma 
als volgt gedefinieerd worden. 

struct { 

char *naam; 
char ‘adres; 
char *postcode; 
char *woonplaats; 

} vermelding[100] ; 

Dit zal in een programma hetzelfde ef¬ 
fect hebben als bovenstaand voor¬ 
beeld. Er is echter een groot verschil. 
Als u het net gegeven voorbeeld in 
een INCLUDE file in zou voeren, zou 
het netto resultaat ‘njente’ zijn daar u 
de structure niet meer kunt bereiken 
voor latere declaraties. Dus de naam 
‘adres’ achter ‘struct’ dient ervoor om 
latere declaraties mogelijk te maken. 
Zo’n declaratie zou er als volgt uit 
kunnen zien. 

struct adres vermel¬ 
ding [100] ; 

Nog even ten overvloede, een derge¬ 
lijke declaratie kan alleen maar voor¬ 
komen, als de structure al eerder be¬ 
kend gemaakt is aan het systeem. 
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Het hernoemen van een structure 
gaat dus als volgt, struct [oude naam] 
[nieuwe naam]; 

Een meer op de Amiga toegespitst 
voorbeeld zal mischien nog verhelde- 
render werken. Het gaat hier om de 
Window structuur die gedefinieerd 
wordt in de INCLUDE file intuition/in- 
tuition.h". 

struct Window *MijnWindow; 

De voor de naam ‘MijnWindow’ ver¬ 
melde ster dient er voor om te zorgen 
dat zonder veel moeite later het adres 
naar het nieuwe window in de varia¬ 
bele MijnWindow opgeslagen kan 
worden. In dit geval zult u gebruik 
moeten maken van de pijl operator 
>’. Nu is dus de gehele Window struc¬ 
tuur onder de naam MijnWindow te 
bereiken. 

Ter afsluiting 

Tot zover deze aflevering. Weliswaar 
niet zo lang als u gewoonlijk gewend 



bent, maar we zijn nu door de alge¬ 
mene beschrijving van de taal C 


heen. Er is natuurlijk nog veel meer te 
zeggen over de taal C, maar daarvoor 
verwijzen we u toch door naar gespe¬ 
cialiseerde boeken over de taal C. 
Een boek dat ons vaak terzijde stond, 
staat en zal staan is hieronder ver¬ 
meld. In de volgende aflevering gaan 
we in op wat het eigenlijke doel van 
deze cursus is, C toegepast op de 
Amiga computer. Als eerste zullen we 
ingaan op het grafische besturings 
systeem van de Amiga, Intuition. Tot 
de volgende keer! 

Literatuur: 

De programmeertaal C, Grondbegin¬ 
selen en toepassingen, Al Kelley & Ira 
Pohl, 

Addison Westley, 

ISBN 90 6789 068 5 

JOHAN & JOHAN 



SETTLE LIGHT SOFTS 


„SUPER SOUND SYSTEM” 

voor de C-64 


fe DAAR ZIT MUZIEK IN! 


★ Muziek uitprintbaar 

★ Uitgebreide edit mogelijkheden 

★ Zeer gebruikersvriendelijk 

★ SID-chip geheel instelbaar 

★ Metronoom naar keuze 

★ Muziek los afspeelbaar en afspeelbaar in eigen 
BASIC-programma 

★ Stemmen tijdens afspelen omschakelbaar 


In de betere computershop voor 

ƒ 45, — (diskette) 

incl. BTW 


Te bestellen bij: 

SALASAN 


Kwaliteits-software voor Commodore 


Postbus 5570, 1007 AN Amsterdam, Giro 5641219 
Tel. 020-203219 
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Zuma’s TV*TEXT voor de Commodore Amiga is een tekstpresentatie-programma 
voor videoproducties, computer-slideshows en tekstdia’s. De software maakt van de 
meegeleverde en optionele Amiga-fonts (lettertypen) werkelijk magnifieke titels. Va¬ 
riaties in lettergrootte, schaduwwerking, semi-3D-effecten, letterkleur en shaded ach¬ 
tergronden brengen een professionele aftiteling in huis. Geen tekst-speelgoedje voor 
op de computer maar een volwaardige titelgenerator die qua mogelijkheden profes¬ 
sionele titelhardware evenaart of zelfs klopt. 

TV*TEXT 


Professionele video-titels op de Amiga 


T itelgeneratoren zijn een must voor hen die professioneel uitziende vi¬ 
deoproducties, kabelkranten, slideshows en tekstdia’s willen maken. 
Voor video zijn tal van losse titelgeneratoren leverbaar en een aantal cam- 
recorders beschikt al standaard over een ingebouwde aftiteloptie of beeld- 
geheugen waarmee titels en afbeeldingen aan de gemaakte opnamen kun¬ 
nen worden toegevoegd. Een tweede veelzijdiger mogelijkheid is het ge¬ 
bruik van een PAL-compatible Personal Computer zoals de Commodore 
Amiga 500, 1000 of 2000. Die Amiga is tevens geschikt voor het schieten 
van tekstdia’s voor conventionele diapresentaties en slideshows. 


Bij puur videogebruik zult u over een 
PAL-composiet-videokaart of genlock 
dienen te beschikken. De PAL-kleu- 
renkaart zorgt voor vertaling van de 
RGB-signalen uit de Amiga in een 
composiet-videosignaal voor de vi¬ 
deorecorder. Een genlock maakt 
overlaying, d.w.z. het over elkaar 
heenleggen van twee videobronsig- 
nalen (bijvoorbeeld de gemaakte ti¬ 
tels en de opname van de camrecor- 
der) mogelijk. 


Softwarematige 

titelgenerator 

Een video-computer zoals de Amiga 
beschikt al standaard over de beno¬ 
digde grafische chips om een gede¬ 
tailleerd scherp kleurenbeeld op de 
monitor te zetten. Animatiechips on¬ 
dersteunen de vloeiende bewegingen 
van de grafische beelden. Bij een pro¬ 
gramma als TV*TEXT 1.11 gaat het 
echter voornamelijk om fontbewer- 
king. 

Een font is een variatie van een be¬ 
staand lettertype (typeface), bijvoor¬ 
beeld Swiss, Courier, Times, Roman, 
Pica, Barn en Diamond. Die variaties 
betreffen meestal de grootte uitge¬ 
drukt in points (honderste delen van 
één inch), vetten (bold), onderstrepen 
(underline) en schuinschrift (Italic). 
De drie laatst genoemde fontvarian- 



ten worden ook wel stijlen (styles) ge¬ 
noemd. 

Fonts worden standaard bij een aan¬ 
tal pogramma’s (Amiga Werkbank, 
tekstverwerkers, Business Graphics) 
meegeleverd. Ook zijn zij als losse 
libraries (letterbibliotheken) op disket¬ 
te leverbaar. Zuma zelf levert ook een 
aantal font-bibliotheken op Amiga- 
schijfjes. 

Zonder verdere bewerking zijn fonts 
een wat statisch geheel en spreken 
weinig in dia- en videoproducties. An¬ 


ders wordt het als we de kleuren, 
schaduwwerking, belichting, mate 
van rotatie en achtergrond kunnen 
beïnvloeden. Dan ontstaan professio¬ 
nele titels die op menig kabelstation 
niet zouden misstaan. Dat nu precies 
wat een titelgenerator zoals TV*TEXT 
doet. Neem een bestaand font en 
maakt daar met behulp van de keuze¬ 
menu's en muis een flitsende titel 
mee. 
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TNTTEXT gebruikt drie Amiga screen- 
modes: 

• De 640 x 200 pixels medium re- 
solution, het gemiddelde oplos¬ 
sende vermogen goed voor nor¬ 
maal video- en diagebruik 

• De 640 x 400 pixels high resolu- 
tion, HIRES videomodus voor het 
scherpst mogelijke resultaat. 

• De 704 x 204 pixels overscan 
geeft tuil size video op het moni- 
torscherm. Dus geen last meer 
van storende zwarte randjes in 
het videbeeld bij opname op een 
VCR. Bedenk wel dat deze video¬ 
modus video-RAM-geheugen 
vreet. De mate van overscan is 
regelbaar via de SCREEN SIZE- 
optie van het videomenu 

Die 640 x 400 pixels HIRES mode is 
interlaced. Dat wil zeggen, het video¬ 
beeld wordt in twee keer opgetekend. 
Eerst de oneven horizontale lijnen en 
dan de even beeldlijnen. Interlacing is 
noodzakelijk om compatible met de 
bestaande videosystemen te blijven. 
Het nadeel is een lichte flikkering die 
dankzij het nagloeien van de fosfor- 
deeltjes op de TV-beeldbuis niet voor 
het menselijk oog zichtbaar is. Bij het 
fotograferen van de beeldbuis kan het 
interlace-effect bij een te snelle slui¬ 
tertijd wel zichtbaar worden! Experi¬ 
menteer daarom eerst bij verschillen¬ 
de sluitertijden (bijvoorbeeld 1/8,1/15 
en 1/30 seconde) om de best dekken¬ 
de tijd te vinden. 

Gerender 

TV*TEXT maakt gebruik van het zo¬ 
genaamde RENDER-principe. Het 
Angelsaksische woord “render” staat 
voor interpreteren of presenteren. Bij 
de meeste tekenprogramma's tekent 
u de tekens en figuren ter plekke op. 
De bewegingen van de muis of teken¬ 
pen bepalen on the spot wat er op het 
scherm gebeurd. Dit in tegenstelling 
tot Zuma’s TNTTEXT waarbij de ge¬ 
bruiker een eerst ingetypte tekst door 
de keuze van de programmamenu’s 
laat bewerken. 

In de praktijk komt dat neer op het kie¬ 
zen van de NEW TEXT-optie uit het 
RENDER Menu waarop het tekstin- 
voervenster in beeld verschijnt. Zoek 
vervolgens een geschikt font met bij¬ 
passende lettergrootte uit bij het text- 
menu en kies de letterkleur plus de 
gewenste special effects. De tekst 
blijft gewoon zwart, maar wel in de 
juiste fontvorm en grootte op de in- 
voerregel staan, totdat u de “render- 
toets” met de linker muisknop acti¬ 


veert en vervolgens de tekst het vrije 
scherm opsleept. Daar tekent 
TV*TEXT de titel volgens de opgege¬ 
ven specificaties. Transport naar de 
gewenste locatie gaat via de muisbe- 
wegingen en met een druk op de 
rechter muisknop wordt de tekst ter 
plekke gedumpt. Bij meerdere regels 
of een te grootte tekst zult u de titel in 
delen moeten aanbrengen en dat 
vergt nogal wat gerender voordat het 
allemaal op zijn plaats staat. Om over 
eventuele fouten nog maar niet te 
spreken. 

Behalve tekst biedt TNTTEXT ook een 
beperkt aantal shapes. Een shape is 
een geometrisch figuur zoals een cir¬ 
kel, lijn of rechthoek. Ook de shapes 
kunnen via het rendermenu van de 
nodige special effects voorzien wor¬ 
den. Het tekenen gaat direct op het 


De special effects 

Met behulp van de speciale effecten 
brengt TV*TEXT leven in uw video- of 
diatitels. Deze special effects zijn toe¬ 
gankelijk via de RENDER PREFE- 
RENCES REQUESTER. Er is keuze 
uit: 

• Het besturen van de schaduw-, 
strobe- en stijllichtval 

• Het veranderen van de schaduw¬ 
en stroboscoopkleuren 

• Keuze uit de schaduwtypen Drop 
(schaduw staat los van het ob¬ 
ject), Cast (schaduw vast aan het 
object), Strobe (= hier een veel¬ 
kleurige schaduw) en Transparent 
(doorzichtige schaduw) 


• De effectdiepte bij de schaduw¬ 
en stroboscoopeffecten 

• De letterstijleffecten Edged, Outli- 
ned en Extruded (3D-profiel) 

• De kleur van de objectfront 

• De profieldiepte 

• Rotatie in stappen van 45 graden. 
Staat onder het text-menu 

Een aparte techniek vormt de overlay 
rendering. Daarmee kan de gebruiker 
met andere tekenpakketten gemaak¬ 
te objecten binnen TNTTEXT halen en 
met de render special effects bewer¬ 
ken. Bij met name videotoepassingen 
geven een zwarte outline, schaduwef¬ 
fecten en een 3D-profiel respectieve¬ 
lijk meer scherpte en diepte. 


Achtergrond 

Het spreken van een titel staat of valt 
met de juiste achtergrondkeuze. Be¬ 
halve een goed kleurcontrast kan een 
juiste kleurgradiënt de titel meer im¬ 
pact geven. De achtergrondkleur 
wordt aan de hand van het beschikba¬ 
re kleurenpallet ingesteld. Er zijn drie 
mogelijkheden: keuze van een vaste 
kleur uit het pallet, instellen van de 
Rood-, Groen- en Blauw-regelaars en 
de Hue (tint)-, Saturation (kleurverza¬ 
diging)- en Value (helderheids)-regel- 
aars. Met behulp van Range valt een 
fade-overgang tussen twee verschil¬ 
lende kleuren te maken. Swap en 
Copy kunnen de kleuren binnen het 
pallet verplaatsen. De optie Alt Pallet- 
te wisselt een gegeven alternatief pal¬ 
let uit met het huidige pallet. En tot 


scherm met behulp van een kruis- 
haar-cursor. 
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slot verzorgt Auto Color de automat¬ 
ische kleurstelling bij het laden en 
renderen van plaatjes uit andere gra¬ 
fische pakketten. 

De gradation verzorgt kleurfading in 
16 stappen. Verder biedt de achter¬ 
grond nog de keuze uit verschillende 
rasters (de Grid-optie) en behangsel¬ 
papier (Tile & Wallpaper, met eerder 
opgeslagen motieven). 

Editing 

Onder de redigeeropties staan de 
commando’s voor de titelopmaak. 
UNDO maakt de laatst verrichte han¬ 
deling ongedaan. CUT verplaatst een 
uitgesneden beelddeel naar een an¬ 
dere schermlocatie. COPY doet het 
zelfde met de uitsnede maar maakt 
tevens kopieën van het origineel. 

Tot de vormveranderende opdrach¬ 
ten behoren o.a. RESIZE (groter/klei¬ 
ner), SQUEEZE & STRECTCH (sa¬ 
menknijpen en uitrekken), HALF (hal¬ 
ve grootte), DOUBLÉ (dubbele groot¬ 
te), DOUBLÉ HORIZONTAL, DOU¬ 
BLÉ VERTICAL en HALF VERTICAL. 

TV*TEXT is een goede titelgenerator 
voor videofilms, slideshows en titel- 
dia’s. Met een Amiga reeds op het bu¬ 
reau bent u dan veelzijdiger en vaak 
goedkoper af dan met een losse titel¬ 
generator voor video of business 
graphicspakket. Het gerender is in het 
begin wat ongemakkelijk en met 
name de rotaties duren tamelijk lang. 
De prijs van ƒ 279,- vinden wij iets 
aan de pittige kant, vooral omdat daar 
in de praktijk nog wat extra fonts bij 
zullen komen. 

Informatie bij o.a.: CAT & KORSH In¬ 
ternational, Evertsenstraat 5, 2901 
AK Capelle aan de IJssel. 

U.S 

De nieuwe 

salasan 

C-64 catalogus 

komt binnenkort uit! 



nu al gratis aan te vragen! 
Salasan postbus 5570, 1007AN 
Amsterdam tel. 020-203219 

BESTELNÜ 


Kleine advertenties 


Te koop: Cl6 

Met datarecorder, Ned. handl., Basic 
intro cursus, ƒ 100,— S. de Jong, Tel. 
05105-2893. 

Te koop C 128D + diskdrive 

120 disks + veel boeken + uitbreiding 
1750 Ram + Final cartridge + soft¬ 
ware + 2 joysticks, 2 floppybakken. 
ƒ 1.200,—. Tel.: 02263-1941 

Te koop Commodore 
printer 

Color MCS 801 voor C64/128 met ka¬ 
bel. Vraagprijs: ƒ 275,— 

Tel.: 01824-2466 

Te koop: Amiga 500 + 501 

2e drive, T.V.adapter en joystick, Phi¬ 
lips 8833 kl.st.mon., Disks - work- 
bench + Amiga Basic + extra’s. Veel 
spellen met tot. waarde ƒ 3.800,— 
Eén koop ƒ 2.750,—. 

Tel.: 02975-60515. 

Gezocht: 

Commodore disk drive Cl 571 voor 
aansluiting als tweede drive op de 
Cl28 D. Tel. na. 19.00 uur: 023- 
276317. 

Te koop: Commodore 64 

Met 1541 Diskdrive, C2N recorder, 
joystick, snellaadcartridge, 

Expert ESM, vele diskettes en casset¬ 
tes en boeken. Vaste prijs ƒ 850,— 
Tel. 075-312619 (na 16.00 uur). 

Gevraagd: Intromakers 

of intro-linkers. Op disc, voor CBM- 
64, Tegen betaling of ruilmateriaal. 
Tel.: (na 15.00 uur) 079-165670 (Rik). 

Te koop: CBM-64 set 

+ 1541 diskdrive + MPS-801 printer + 
Philips monitor + cassetterecorder + 
joystick + programma’s (o.a. GEOS, 
Flight Sim II) + diskettes + bijbehoren¬ 
de lit. voor ƒ 995,— 

Tel.: 070-979721 na 19.00 uur. 

Te koop: printer. 

Apple II C printer. 

Geschikt voor Commodore 64, prijs ƒ 
200,—. Tel.: 02940-12124. 


Gevraagd power-cartridge! 

voor CBM-64. prijs: ca. ƒ 25,— 

Tel.: 050-412411 

Te koop: compleet systeem 

CBM-64 + 1531 recorder-1541 disk- 
drive-Sharp kl. t.v.-, Star NX-10C 
printer - modem, 2 joysticks - soft¬ 
ware, Powercartridge + lichtpen 
Prijs ƒ 2.000,— 

Tel.: 01804-12814 (na. 16.00 uur). 

Gezocht: 

Iemand die Little Computer People(s) 
voor de C-64 heeft, en met mij wil rui¬ 
len. Evt. ook andere software 
Tel.: 055-336783 

Te koop:CBM 1280 PC 

(d.w.z. C64 + Cl28 + ingebouwde 
diskdrive) met 300 schijven, zijn 2000 
spelen in 2 diskettebakken en 2 joys¬ 
ticks + 15 boeken en handleidinkjes, 
o.a. machinetaal en evt. een plekkie 
in onze groep toyboys. Verkoop we¬ 
gens aanschaffing PC. ƒ 1.200,— 
i.z.g.s. 

Tel.: 01748-15879 

Gevraagd drive voor C-64 

Ook te koop: Originele spelen op tape 
voor C-64 (Gunship, op wolf...enz...) 
Tel. 055-412393 

Gevraagd: pen & cassette 

Wie kan mij helpen aan pen en cas¬ 
sette voor plotter 1520. Mag leeg zijn, 
moet dienen om na te maken. 

P.J. Michilsen. Tel.: 055-213822 

Gezocht:Nederl. handl. 

voor GEOS tegen vergoeding 
Tel. 085-257339. 

Te koop voor C-64 

(originele versies op cass met handl.): 
laser genius (assembler/disassem- 
bler/debugger/analyser); laser basic 
(spelontwerp); assembler cursus: 
spritemachine + charnp assembler; 
64-intern(boek); gunship (helicopter 
simul); music composer; arendarvon 
castle (adventure+boek). 

Tel. zaterdag na 18.00 uur: 
011/611194(België). 
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The Untouchables’ op diskette. Chicago in de jaren ’20, maffia, illegale drankimport 
en straatbendes. In de broeierige hitte, ‘downtown’ waar de regels van de straat 
gelden. Dat is Capone, een action-game waarbij gleufhoeden en grote limousines 
noodzakelijk, maar niet voldoende zijn om op de been te blijven. 

Capone 

Jaren ’20 herleven in actiongame 



Pistool 

Amiga-gebruikers zijn gewend aan 
het werken met de muis, een aantal 
spelen wordt met een joystick ge¬ 
speeld, ook geen probleem. Dit spel 
heeft iets unieks: het spel kan ook 
worden gespeeld met een pistool. Als 
extra kan deze met het spel worden 
meegeleverd. Het is een geweldige 
ervaring, met een pistool, aangeslo¬ 
ten op de muispoort, op het Amiga- 
scherm te kunnen schieten en dan de 
gangsters te zien vallen. Gebruik al¬ 
leen het originele Capone pistool, we 
kunnen niet instaan voor de gevolgen 
als U een echt pistool gebruikt. 

Ónmogelijke opdracht 

Na het intro-scherm moet er een keu¬ 
ze worden gemaakt, of er met een 
muis of met een pistool wordt ge¬ 
werkt. Het verdient aanbeveling het 
spel eerst een paar keer met de muis 
te spelen om wat ervaring op te doen. 


Capone 


C apone is een spel van de software ontwikkelaars Actionware. De naam 
geeft eigenlijk al het type spel weer, het is allemaal ACTIE wat de klok 
slaat. Het spel is een nieuw soort actiespel-adventure, het speelt zich af in 
een atmosfeer van een adventure, maar elke onoplettendheid wordt onmid¬ 
dellijk afgestraft. 

Het spel speelt zich af in het verre 
Chicago in de jaren 20. Het is een 
roerige tijd, gangsters regeren op de 
straten, zij waren het die de regels 
hier opstelden. Winkeliers, bar-eige- 
naren, alles moest zich onderwerpen 
aan dit gezag. Wil men hier kunnen 
overleven, dan moet er betaald wor¬ 
den, zo niet dan. 

Als ook dat niet helpt, moeten er an¬ 
dere maatregelen worden getroffen, 
waarbij ook onschuldige burgers niet 
veilig zijn. U moet als geheim agent 
deze misdaden proberen te bestrij¬ 
den, en er rest niets anders dan: veel 
succes! 


J JËr® 


The Ultirmate 
Action Adventures 


Go Ahead... 
IVIake Your Day! 
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Dit omdat zeker in het begin het pis¬ 
tool het wat moeilijker maakt. De 
tweede keuze die gemaakt moet wor¬ 
den is: speel je het alleen of met twee 
personen. Het spel kan gespeeld wor¬ 
den in verschillende moeilijkheidsgra¬ 
den. De eenvoudigste is cadet, hierbij 
zijn geen kinderen, honden en dyna¬ 
miet. Bij Rookie wordt dit al aanmer¬ 
kelijk slechter. Captain is een keuze 
die een nagenoeg onmogelijke op¬ 
dracht inhoud. Kies eerst maar eens 
voor cadet. Wordt het spel met twee 
personen gespeeld dan kan een ieder 
op een ander niveau spelen. Nu be¬ 



gint het spel pas echt. Je kijkt vanuit 
je schuilplaats naar een vredige, rus¬ 
tige straat. Al gauw blijkt dit maar 
schijn te zijn. Ramen gaan aan digge¬ 
len, achter elke kist, vanuit elke hoek 
vanuit de ramen overal wordt er op je 
geschoten. Dit is alleen te voor ko¬ 
men door sneller te zijn dan je tegen¬ 
stander, dus sneller schieten. Let op 
de gangsters dragen allemaal een 
hoed, de personen die deze niet dra¬ 
gen zijn "onschuldige" burgers, het 
kost je veel punten als je deze ook 
raakt. Daarom niet te snel schieten, 
maar eerst goed kijken. Heb je in het 
begin de keuze cadet, dit is het een¬ 
voudigste, dan komen de gangsters 
ook de straat van links en rechts inlo¬ 
pen. Heb je hier alle gangsters versla¬ 
gen, dan kan je verder doordringen in 
de door hun beheerste wijk. Nu sta je 
in een straat bij een bakker en een 
kapperszaak. 

Dynamiet 

Nu wordt er, behalve dat er van alle 
kanten wordt geschoten, ook met sta¬ 
ven dynamiet gewerkt. Zodra er sta¬ 
ven neergelegd worden moet hier op 
worden geschoten, dit maakt de staaf 
onschadelijk. Let ook goed op de do¬ 
zen en kisten aan de zijkant van de 
gebouwen. Hoe verder je doordringt 
in deze wijken, des te moeilijker wordt 
je opdracht. De gangsters komen in 
steeds grotere aantallen, en ze vol¬ 
gen elkaar steeds sneller op. Probeer 
zuinig te zijn met de munitie, je bent 


er sneller door dan je denkt. Kom je 
ook hierdoor heen dan speelt het vol¬ 
gende gevecht zich in een loods af. 
De tegenstanders verschuilen zich 
hier achter kisten. Burgers zijn hier 
niet, dus er kan op alles geschoten 
worden wat beweegt. Neem dit maar 
letterlijk, want de kisten zitten vol 
dynamiet, deze mogen absoluut niet 
geraakt worden. 

Pas op 

Nadat je de orde in deze hal hebt te¬ 
rug gebracht, moeten we buiten nog 
kijken of er werkelijk niemand is ont¬ 
snapt. Hierbij is het wel belangrijk op 
burgers te letten. Tijdens de vuurge¬ 
vechten verschijnen er af en toe pis¬ 
tolen in het beeld. Door hierop te 
schieten krijg je er een leven bij. Nu 
blijkt alles wat hiervoor gebeurt is 
maar kinderspel te zijn, alle zeilen 
moeten worden bijgezet om het vol¬ 
gende niveau te overleven. Over kin¬ 
deren gesproken, zij zijn het die op 
rollerskates je opdracht nog moeilijker 
maken door tijdens een vuurgevecht 
door het beeld te komen. Raken wordt 
direct afgestraft. Let op, want niet al¬ 
les is wat het lijkt, dit lijkt moeilijk, 
maar je komt hier gauw genoeg ach¬ 
ter. Bomen in de straten zijn ook veel 
gevaarlijker dan je op het eerste ge¬ 
zicht zou denken. Ze blijken wat met 
dynamiet te maken te hebben. 



3 unten 


Punten worden verkregen door het 
neerschieten van de gangsters. Om 
hoog op de scorelijst te komen moe¬ 
ten er dus veel worden neerge¬ 
schoten. Maar om echt hoog te ko¬ 
men moet het "mystery" worden ge¬ 
raakt. We vertellen je alleen dat deze 
zich ophoudt in de buurt van het post¬ 
kantoor. Wordt het je tijdens het spe¬ 
len allemaal wat te veel of wordt je ge¬ 
stoord, bijvoorbeeld de telefoon, dan 
kan het spel gestopt worden door op 
de spatiebalk te drukken. 
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De Amigafamilie beschikt over een krachtig digitaal systeem voor het nemen van 
geluidsmonsters. Met behulp van digital sound sampling kan de gebruiker real-life 
geluid omzetten in data voor opslag en/of verdere bewerking door de Amiga. Nodig 
zijn een geluidsbron (microfoon, recorder, CD- of videoplayer), sampling hardware en 
software. Audiomaster II van Aegis is de verbeterde versie van dit bekende stereo 
sound sampling-pakket. Daarmee verandert u de Amiga in een geavanceerde geluids¬ 
studio voor digital sound processing. 

Audiomaster II 


Geluidsnoepen en digitaal bewerken op de Amiga 

F uil stereo digital sound sampling is een wat minder bekende toepassing 
van de Amiga. Onbekend maakt ook onbemind, maar daarnaast dien je 
als gebruiker ook over de nodige expertise te beschikken om echt iets met 
gedigitaliseerd geluid te kunnen doen. Aegis biedt met Audiomaster II 
gebruiksvriendelijke software voor het zelf verder opslaan en bewerken van 
gedigitaliseerd geluid. Zelfs de niet-expert kan er zo mee aan de slag. 



Geluid beweegt zich voort als een 
golf. Waarschijnlijk kent u het begrip 
geluidsgolf nog wel van de natuurkun¬ 
deles op school. Daar had de leraar 
het over longitudinale en transversale 
golven, golflengtes, frequenties, am¬ 
plitudes en sinuscurven. Een geluids¬ 
golf is in principe longitudinaal, 
d.w.z. de luchtmoleculen vibreren 
heen en terug in de richting waarin de 
totale geluidsgolf zich voortbeweegt. 
Zo’n golf valt moeilijk visueel te be¬ 
oordelen en daarom geeft men 
meestal een transversale, d.w.z. de 
deeltjes bewegen in een richting lood¬ 
recht op de bewegingsrichting van de 
golf, sinuscurve. Zo ontstaat de be¬ 
kende geluidssinus om de normaalas. 
De uitslag (positief of negatief) ten op¬ 
zichte van normaalas wordt amplitu- 
de(druk of -volume) genoemd. De 
afstand tussen twee golftoppen heeft 
de golflengte en het aantal golfcycli 
per seconde is de frequentie in 
Hertz. Gaar er al een lichtje van her¬ 
kenning branden? 

Natuurlijk is zo’n eenvoudige golf- 
vorm domweg te mooi om waar te 
zijn. Muziek- en geluidsgolven blijken 
bij nauwkeurige analyse behoorlijk 
gecompliceerd in elkaar te zitten. Het¬ 
geen wij mensen als muziek of een 
bepaald geluid ervaren is meestal 
een uit meerdere golven samenge¬ 
steld geheel. Een pure toon komt in 
de natuur vrijwel niet voor. Bovendien 
varieert de geluidssterkte in de tijd, op 
het moment dat de sinus de normaal¬ 
as doorsnijdt is de amplitude en daar¬ 
mee de geluidsdruk nul. 


Een geluid bestaat in de praktijk uit 
een fundamentele en de daarbij be¬ 
horende harmonische boventonen. 
Het aantal en de aard van de harmo¬ 
nische boventonen bepaalt de karak¬ 
teristiek van de gecombineerde golf 
die een muziekinstrument voort¬ 
brengt. Daarom zijn de geluiden zo 
verschillend. Zelfs uitgaande van de¬ 
zelfde fundamentele toon, de pitch. 
Bijvoorbeeld een hoge C. 

Digitaal samplen 

Net als bij andere vormen van digita¬ 
liseren wordt bij sound sampling 


analoge golfinformatie in getallen om¬ 
gezet. De kwaliteit van het digitaal op¬ 
genomen geluid hangt sterk af van 
hoeveel monsters de sampling hard¬ 
ware per tijdseenheid kan nemen. 
Dus hoe hoger de sampling rate, des 
te beterde natuurgetrouwheid van het 
gedigitaliseerde geluid. 

Een tweede kwaliteitsbepalende fac¬ 
tor is wat de sampler met het zo juist 
gedigitaliseerde geluid verder kan 
doen. Bijvoorbeeld storingen en bijge¬ 
luiden eruit filteren of fouten en mis¬ 
sers bij de opname zelf te korrigeren. 
Verdere bewerking is een taak van de 
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sampling software zoals het hier be¬ 
sproken Audiomaster II- pakket. 
Eenmaal gedigitaliseerd geluid kan 
later weer door de Amiga sound-chip 
in HiFi stereo worden afgespeeld. Dat 
heet met een technische term “play¬ 
backen”. Opmerkelijk is dat Audio¬ 
master II een golfvorm sneller kan af¬ 
spelen dan de 29 KB sample speed. 
Dat is meer dan de Amiga-hardware 
volgens de specificaties zou kunnen 
halen. Het nut bij andere tragere mu- 
zieksoftware is in deze natuurlijk be¬ 
perkt. 

Waarom samplen? 

Menige lezer zal inmiddels de vraag 
stellen: “Waarom zou iemand de Ami¬ 
ga als een soort geluidsinblikker gaan 
gebruiken?” Daarvoor kunnen diverse 
redenen zijn. Ik geef een kort over¬ 
zicht van de meest gebruikte toepas¬ 
singen: 

• Het integreren van real-life ge¬ 
luid of muziek in videogames. 

Tal van de levensechte geluiden 
van de Amiga- spelletjes zijn op 
deze manier gemaakt. 


• Het aanpassen en/of korrigeren 

van bestaand geluid volgens de 
eigen specificaties. Bijvoorbeeld 
het herstel van een slecht origi¬ 
neel. 

• Het zelf creatief componeren 

met opgeslagen geluid. Bijvoor¬ 
beeld het combineren, vervormen, 
versterken/verzachten, verande¬ 
ring van de harmonischen en het 
aanbrengen van special effects. 
Veel electronische muziek en ge¬ 
luidseffecten voor spelletjes wor¬ 
den op deze manier gemaakt. 
Gesampled geluid kan door com¬ 
patible (SONIX- of IFF-format) 
muziek- en desktopvideo- soft¬ 
ware gebruikt worden. 


Vroeger waren voor dit soort trucs 
zware computers en dure sampler 
hardware nodig. De Amiga heeft de 
electronica voor sound processing al 
in huis. Resten nog een optionele 
sampler en de benodigde editing soft¬ 
ware. 

Audiomaster II 

Zoals de naam al aangeeft is Audio¬ 
master II de opvolger van “geluids- 
meester I”. Er is een aantal belangrij¬ 
ke verbeteringen aangebracht die vol¬ 
gens Aegis de laatste Amiga-beper- 
kingen bij sound sampling (zullen) 
slechten. 

Als eerste de verdubbelde sampling 
rate. Nu 56.000 samples (monsters) 
per seconde in plaats van 28.000 sps. 
Dat is beter dan de doorsnee CD-spe- 
ler voor elkaar bokst. 

De Audiomaster II ondersteunt full 
stereo. Dus is volledig stereo en kan 
bovendien per geluidskanaal alle 
gangbare stereo-effecten aansturen. 
Goed voor meesleepende geluidsef¬ 
fecten zoals afgrijselijke gillen, langs- 
scheurende jets of racewagens, jan¬ 


kende kogels en exploderend wapen¬ 
tuig. Naar keuze van links naar rechts 
of van rechts naar links. Ook musici 
zullen met deze optie wel raad weten 
om hun composities te versterken. 
Vijf octafen staat gelijk met HIRES- 
graphics bij teken- en CAD- program¬ 
ma’s. Net als bij de grafische beelden 
met een hoogoplossend vermogen 
vreet die betere kwaliteit vrij RAM- ge¬ 
heugen alsof het niets is. HiFi wordt 
nu eenmaal duur betaald. Een troost 
is dat Audiomaster II alle voor de Ami¬ 
ga gangbare geheugenuitbreidingen 
ondersteund. De echte muzieklief¬ 
hebber zal vijf octaven in plaats van 
zeven (op de betere keyboards) wat 
magertjes vinden. Voor een computer 


in de Amiga-klasse is vijf octaven 
echter een hele prestatie. 

Interne resampling. Andere geluids- 
en videosoftware kan vaak niet met 
hoge samplingrates uit de voeten. 
Met Audiomaster II kunt u in de Amiga 
tot een wel compatible aantal sps 
hersamplen. Dit gaat uiteraard wel 
gepaard met enig kwaliteitsverlies. 
Het aanpassen van de pitch. Bij¬ 
voorbeeld een geluidsmonster aan¬ 
passen aan de toonsoort waarin de 
muziek waarmee het effect gemixed 
wordt gespeeld is. 

Wat de aanpassing en korrektie van 

het gedigitaliseerde geluid betreft be¬ 
schikt AudioMaster II over: 

• Auto peek adjustment (het zelf 
uitregelen van geluidspieken) en 
pre-scanning. Beiden voor het 
reduceren van de vervorming. 

• Een ruisfilter en een aliasing fil¬ 
ter. Het eerste filtereffect dient als 
de treblecontrole, het tweede als 
een onderdrukker van de vervor¬ 
ming. 

• Het omzetten naar stereo 

• Volumeregeling 

En verder biedt Audiomaster de nodi¬ 
ge real-time special effects en mixa- 
ges zoals: 

• Echo 

• Reverse sampling. Het achter¬ 
stevoren opnemen/noteren van 
het geluidsmonster of -golf. 

• Het mixen van geluidsgolven tot 

bijvoorbeeld een geheel nieuw 
electronisch muziekinstrument 

Alle editing procedures gebeuren 
comfortabel op het monitorscherm 
met de Amiga-muis. CUT, PASTE, 
INSERT, REPLACE, COPY en het 
automatisch zetten van de REPEATS 
zijn onder volledige visuele controle 
(de geluidsgolven staan op de buis) 
eenvoudig uit te voeren. Dit editven- 
ster functioneert tevens als oscillos- 
coop ter beoordeling van het inko¬ 
mend geluid. 

Tot slot nog de RAM scan waarmee 
de geheugeninhoud rechtstreeks 
naar de disk gedumpt kan worden. 

De installatie 

Audiomaster II stelt geen hoge hard- 
ware-eisen. Voor gewoon hobbyge- 
bruik zijn 512 KB aan vrij RAM en 
twee diskdrives zijn in principe vol¬ 
doende. Voor echt professioneel ge¬ 
bruik zijn 1,5 tot 2 MB en een harde 
schijf een minimum-vereiste. Een 



Eenvoudige sinusvoorstelling van een geluidsgolf 
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68020- versnellerkaart bespoedigt 
het rekenwerk. 

Na het maken van een veiligheidsko- 
pie en het opstarten van het Audio- 
master ll-ikoon verschijnt een Aegis- 
requester met het versienummer, co- 
pyright-informatie en de hoeveelheid 
vrij RAM. Daarna krijgt u het hoofd- 
scherm met bovenin de menubalk, in 
het midden het Edit-venster met de 
golfvormen en in het onderste 
schermkwart het controlepaneel. Het 
controlepaneel biedt voldoende mo¬ 
gelijkheden om eerst eens met de ge¬ 
digitaliseerde geluiden op de datadisk 
te experimenteren. Heeft de gebrui¬ 
ker op deze manier wat ervaring op¬ 
gedaan, dan kan het eigenlijke sam¬ 
plen beginnen. 

Onder Set Sampler Config van het 
Options Menu staat, u raadt het al, 
hoe Audiomaster II op geleide van de 
sampler hardware in te stellen. Audio¬ 
master is in vrijwel alle gevallen supe¬ 
rieur aan de bij de sound sampler 
meegeleverde software, dus die kan 
de prullebak in. Klik in op de Parallel- 


box en de samplesnelheid voor de 
Amiga CPU en de sampler kunnen 
worden ingesteld. Standaard zijn 
22.372 voor stereo- en 44.744 voor 
monogeluid. Alleen met de 68020 mi¬ 
croprocessor en een geschikte 
soundsampler is stereo/mono-samp- 
ling van 55.930 mogelijk! Bij het ge¬ 
bruik van alternatieve samplers bleek 
enig experimenteerwerk noodzake¬ 
lijk. Na wat proefjes rolt de juiste 
sampling rate er wel uit. 

Verder kan de gebruiker de volgende 
opties instellen; 


• De voice activation VOX. Alleen 
geluid dat boven de ingestelde 
drempelwaarde uitkomt, wordt ge¬ 
sampled. 

. Automatisch bijregelen van de 
BIAS. Alleen waar nodig op het 
scherm centreren. Hetzelfde geldt 
voor de automatische BIAS-bere- 
kening. 

Na het saven van de instelinformatie 
onder Save Configuration behoeft de 
gebruiker voor het samplen alleen 
nog de samplegrootte in bytes en de 
tijdsduur in seconden op te geven. 
De formule: 

Rate (sps) x time (sec)=size (bytes) 

ligt daarmee vast. 

Het samplen is verder een kwestie 
van de sampler hardware op de audi- 
obron aansluiten en de optie Sampler 
uit het Projectmenu te activeren. De 
Digital Sampler-requster verschijnt in 
beeld en u kunt het inkomende vol¬ 
ume onder Monitor en de sample¬ 
grootte regelen. 


Het controlepaneel 

Net als in een echte geluidsstudio 
biedt Audiomaster II een groot aantal 
controleknoppen. Alleen staan die 
knoppen nu op de monitor en worden 
zij via de muis bediend. De belangrijk¬ 
ste functies zijn: 

• Het aanbrengen van positie- en 
tijdcoördinaten 

• De Display Size. Het aantal sam¬ 
ples op de twee stereokanalen 


Het aangeven van het werkge¬ 
bied, section of range, voor het 
gebruik van de editfuncties op de 
geluidsgolf 

• in/uitzoomen 

. Het aanbrengen van Repeat-mar- 
kers 

• Het bepalen van lussen, loops 

• Snaphot (tijdelijke opslag) en Re- 
call brengt het snapshot weer te¬ 
rug in het editing-venster 

• Het afspelen van het geluid 

Kortom, een complete geluidstafel op 
de monitor. 

Bewerken en saven 

Het Edit-menu biedt de opties COPY 
(kopieert de data naar de kopieerbuf- 
fer), PASTE (zet de data uit de buffer 
op de door de muiscursor gemarkeer¬ 
de plaats), CLEAR BUFFER (leegt de 
buffer), REPLACE (vervangt de door 
de cursor aangegeven data door de 
bufferinhoud), ZERO (voor het aan¬ 
brengen van werkruimte in de golf) en 
EDIT FREEHAND (voor het met de 
vrije muishand veranderen van de ge¬ 
luidsgolf). Onder het Special Effects- 
menu staande opties ECHO, BACK- 
WARDS, MIX WAVEFORMS, CHAN- 
GE VOLUME, RESAMPLE, TUNE 
WAVEFORM, real-time DELAY en 
UNSAMPLE. 

Het opslaan van het gedigitaliseerde 
geluid kan in normaal of vijfoctaaf 
HiFi-format. let daarbij op de juiste 
pitch, samplerate en de plaats van de 
herhalingspunten (Repeat Points). 
Gebruik bij voorkeur REPEAT ZERO 
voor het plaatsen van de markerings¬ 
punten. Gebruik de SNAPSHOT- 
functie voor het tijdelijk maken van 
backups voor het geval dat er bij de 
soundprocessing iets mis gaat! 

Audiomaster II is geen allemans-soft- 
ware. Professionele sound sampling 
zal de gewone Amiga-hobbyist niet 
echt in vuur en vlam zetten. De nieu¬ 
wigheid is er al gauw van af. Spelle¬ 
tjesmakers, desktopvideors, slide- 
showproducenten en electronisch 
georiënteerde musici zullen het gebo- 
dene zeker kunnen waarderen. De 
Engelse gebruiksaanwijzing is prima 
leesbaar en staat vol tips en vragen. 
AM II kost ƒ 279,- 

Voor informatie: Altycos Imports, Zoe¬ 
ter meer: tel.: 079-510757. 

U.S 
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